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This manual contains the operating and maintenance procedures 
for the IBM 1130 Disk Monitor System, Version 2. An introductory 
section acquaints the user with the IBM 1130 System. A section 
on programming tips and techniques assists the user in utilizing 
the Monitor system. 

Monitor system control records are described in detail. An 
appendix contains all error messages generated by the system. 










PREFACE 



This publication provides the IBM 1130 System user 
with the information required to operate and maintain 
the IBM 1130 Disk Monitor programming system. It 
is recommended that the user familiarize himself 
with the terms contained in the Glossary at the back 
of this manual. It is important that these terms be 
understood in the context of the Monitor system. 

All hexadecimal addresses in this manual are 
shown in the form /XXXX. 

Symbolic addresses rather than absolute addresses 
are used throughout this manual. A table of equiva- 
lences is provided in Appendix H, Resident Monitor. 



$XXXX All symbolic labels whose first char- 
acter is a dollar sign are found in the 
Resident Communications Area 
(COMMA) 

#XXXX All symbolic labels whose first char- 
acter is a pound sign are found in the 
Disk Communications Area (DCOM). 

@XXXX All symbolic labels whose first char- 
acter is a commercial at sign are con- 
sidered to have absolute values, i. e: , 
@HDNG refers to the page heading 
sector (sector 7) and thus has a value 
of 7. 



MINIMUM SYSTEM CONFIGURATION 

The minimum system configuration required to oper- 
ate the 1130 Disk Monitor system is as follows: 

• IBM 1131 Central Processing Unit, Model 2, with 
4096 words of core storage, and one of the following 
input/output devices 

• IBM 1442 Card Read Punch, Model 6 or 7 

• D3M 2501 Card Reader, in combination with an 
IBM 1442 Card Punch, Model 5, or an IBM 1442 
Card Read Punch, Model 6 or 7 

• IBM 1134 Paper Tape Reader in combination with 
an IBM 1055 Paper Tape Punch. 



PUBLICATIONS 

The following publications will assist the user in 
utilizing the Monitor system. 

IBM 1130 Functional Characteristics ( Form 
A26-5881) 

IBM 1130 Computing System Input/Output Units 
(Form A26-5890) 

IBM 1130 Assembler Language (FormC26-5927) 



NOTE: The # and @ characters are not included in 
the 1403 Printer or 1132 Printer character set; there- 
fore, an equal sign (=) replaces the # and an 
apostrophe (') replaces the @ in the printer listings. 



IBM 1130/1800 Basic FORTRAN TV Language 
(Form C26-3715) 

IBM 1130 Subroutine Library (Form C26-5929) 



Second Edition 

This publication, C26-3717-1, is a major revision of C26-3717-0, 
which is now obsolete. The manual has been updated to correspond 
with modification 1 of the IBM 1130 Disk Monitor System, Version 2. 
A large number of changes and additions have been made to text and 
tabular material throughout the manual. 

Specifications contained herein are subject to change from time to 
time. Any such change will be reported in subsequent revisions or 
Technical Newsletter. 

Requests for copies of IBM publications should be made to your IBM 
representative or to the IBM branch office serving your locality. 

A form is provided at the back of this publication for reader's 
comments. If the form has been removed, comments may be 
addressed to IBM Nordic Laboratory, Technical Communications, 
Box 962, Lidingo 9, Sweden. 



© International Business Machines Corporation, 1967, 1968 
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INTRODUCTION 



The 1130 Disk Monitor System provides for the continu- 
ous operation of the 1130 Computing System, with mini- 
mal set-up time and operator intervention, in a stacked 
job environment. The Monitor system consists of seven 
distinct but interdependent elements — Supervisor, Disk 
Utility Program, Assembler, FORTRAN Compiler, Core 
Load Builder, Core Image Loader, and System Library. 

The Supervisor performs control functions for the 
Monitor system and provides the linkage between user 
programs and Monitor programs. 

The Disk Utility Program (DUP) is a group of IBM- 
supplied programs that performs operations involving 
the disk such as storing, moving, deleting, and dumping 
data and/or programs. 

The Assembler converts source programs written in 
Assembler language into machine -language object pro- 
grams. 



The FORTRAN Compiler translates source programs 
written in 1130 Basic FORTRAN IV language into 
machine-language object programs. 

The Core Load Builder constructs core image pro- 
grams from mainline object programs. The main- 
line programs and all necessary subprograms are 
converted into Disk Core Image format from Disk 
System format, and the resultant core load is built 
for immediate execution or for storing for future 
execution. 

The Core Image Loader serves as both a loader 
for core loads and as an interface for the Monitor 
programs. 

The System Library is a group of disk-resident 
programs that perform I/O, data conversion, 
arithmetic, disk initialization, and maintenance 
functions. 



Introduction 



1130 SYSTEM FAMILIARIZATION 



The operating procedures for readying the system I/O 
units are described below. Following these procedures 
are instructions to the operator on the various ways of 
actually getting data in and out of the system and how 
these methods are utilized by the 1130 Disk Monitor 
Programming System. 



READYING THE IBM 1130 COMPUTING SYSTEM 

This section describes the basic operator actions re- 
quired to ready the IBM 1130 Computing System for 
operation. The paragraphs on readying the I/O units 
should be sufficient to allow the operator to prepare 
the units for selection by the system. Where neces- 
sary, illustrations have been provided to supplement 
the text. 

Additional information regarding 1130 system and 
unit displays and operator functions can be found in 
the following publications. 

IBM 1130 Functional Characteristics (Form A26- 
5881) 

IBM 1130 Input/Output Units (Form A26-5890) 

IBM 2501 Card Reader, Models Al and A2 - Com- 
ponent Description and Operating Procedures 
(Form A26-5892) 

IBM Disk Pack Handling and Operator Procedures 
(Form A26-5756) 



1131 Central Processing Unit 

Most operator action will occur at the console of the 
1130 system. This console, as well as three I/O 
devices — the Keyboard/Console Printer, the console 
entry switches , and a single disk storage drive — are 
all located in or on the 1131 CPU. 

System Power On. When the 1131 POWER switch is 
turned on, the following console operator panel lights 
will be on: DISK UNLOCK (no cartridge in single 
disk storage drive) and FORMS CHECK (if there is 
no paper in the Console Printer). If any other oper- 
ator panel lights are on, press the RESET key. 

To ready the Console Printer, perform the follow- 
ing steps: 

1. Open the Console Printer top cover. 

2. Pull the paper pressure rod forward (the rod with 
three rubber rollers that leans against the platen). 
If the paper is to be pin fed, this rod should remain 
in this position. 



3. 



4. 



5. 



7. 



9. 
10. 



Lift up on the left and right platen pin feed pressure 
plates. 

Set the paper release lever in the forward position. 
This lever is located on the top right rear corner 
of the Console Printer. If the paper is to be pin 
fed, this lever should remain in this position. 
Feed the paper in from the rear and guide it under 
the platen. Make sure that the paper lies over and 
closes the forms check microswitch. This will 
turn off the FORMS CHECK light on the console 
operator panel. 

Lay the paper back across the top of the Console 
Printer and guide the paper so that the holes line 
up with the pin feeds. 
Close the pin feed pressure plates. 
Looking directly down into the Console Printer, 
set the left and right margins. The margin set- 
tings can be read on the scale across the front of 
the unit. 

Close the top cover. 
Press CARRIER RETURN. 



The Console Printer is now ready to be selected. 
To ready the single disk storage drive, perform the 
following steps. 

1. Open the single disk storage access cover located 
at the front of the 1131 (to the right of the console). 
The cover swings open to the right. 

2. Grasp the handle of the access release mechanism 
and pull out and down. 

3. Pick up the cartridge and, holding the cartridge 
with the IBM name towards you and on the left, 
insert the cartridge into the slot. 

4. When the cartridge is seated, raise the access 
release handle to lock the cartridge into place. 

5. Turn the DISK switch (leftmost switch on the panel 
beneath the cartridge enclosure) to the ON position. 
As the disk starts to turn, the DISK UNLOCK light 
on the console operator panel will go out. 

6. Close the access cover. 

When the drive comes up to speed (approximately 
90 seconds), the DISK READY indicator on the con- 
sole operator panel will turn on. The single disk 
storage drive is now ready to be selected. 

1442 Model 6 and 7 Card Read Punch Ready Procedure 

Pre-conditions. POWER ON light on, CHECK light off, 
CHIP BOX light off, stacker not full, and covers closed. 

When the system is first powered up, it is good 
practice to press the NPRO key to ensure that no cards 
are in the feed path. 
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Readying the Card Read Punch. When all pre-conditions 
are met, place the cards to be processed in the hopper, 
face down, 9-edge first, and press reader START. 
When the first card is positioned at the read station, 
the READY light will turn on. The card read punch 
is now ready to be selected. 



1442 Model 5 Card Punch Ready Procedure 

Pre-conditions. POWER ON light on, CHECK light 
off, and ATTENTION light off. 

When the system is first powered up, the HOPPER 
check light is lit. Press NPRO to turn this light off. 
This action ensures the card path is clear. 

Readying the Card Punch. When all pre-conditions 
are met, place blank cards in the hopper, face down, 
9-edge first, and press punch START. Two card feed 
cycles are taken and the first card is registered at 
the punch station. When the punch READY light turns 
on, the card punch is ready to be selected. 



2501 Card Reader Ready Procedure 

Pre-conditions. POWER ON light on, READ CHECK 
light off, FEED CHECK light off, and ATTENTION 
light off. 

When the system is first powered up, the FEED 
CHECK light is lit. Press NPRO to turn this light 
off. This action ensures that the card path is clear. 



Position a tape without a leader (or when starting in 
the middle of a tape) so that the first character position 
to be read is one position to the right of the read star- 
wheels. 

Lower the lever on the read head, thus bringing the 
read starwheels in contact with the tape. Wind the 
leader on the take-up reel and let down the tape tension 
arms. 



Read Head 



Take-up Reel 




Supply Reel 



Tape Tension Arms 



The paper tape reader is now ready to be selected. 



1055 Paper Tape Punch Ready Procedure 



Readying the Card Reader. When all pre-conditions 
are met, place the cards to be processed in the hop- 
per, face down, 9-edge first, and press reader 
START. When the first card is positioned at the 
pre-read station, the READY light will turn on. The 
card reader is now ready to be selected. 



1134 Paper Tape Reader Ready Procedure 

Pre-conditions . System power on. 

Readying the Paper Tape Reader. Raise the lever 
located at the top right side of the read head (see 
illustration below). Load the reel containing the pro- 
gram tape on the right hand drive and lock the reel in 
place. The tape must be loaded so that the three- 
hole side is nearest the operator. With both tension 
arms in the up position, feed the tape across the 
read head and position the tape on the drive sprocket. 

Position a program tape so that a delete code (all 
punches) beyond the program ID punched in the leader 
is under the read starwheels. 



Pre-conditions. System power on. 



Readying the Paper Tape Punch. 



1. Place a reel of tape in the supply pan so that the 
tape feeds out toward the punch die (see illustration 
below) . 

2. With the punch die facing forward (unit name plate at 
the front), pivot the tape pressure lever (right side 
of die) up and to the right. 

3. Feed the tape from the supply pan over the first 
tape guide, under the tape tension lever, and slide 
the tape in under the punch die, tear guide, and 
tape pressure lever. 

4. If the punch has a take-up reel, guide the tape over 
the side of the unit, over the outside of the side 
guide, and back up towards the front of the unit. 

5. The tape now makes a half turn towards the outside 
and comes up and over the end guide. 

6. The tape is then brought up and over to the left and 
wound over the top of the take-up reel. 



Supply Pan 



Tape Tension Lever 



Punch Die 




6. 



7. 



9. 
10. 



1. 



2. 



3. 



4. 



Use a rocking motion to feed the paper under the 

platen (if necessary raise the paper tension control 

guide located in the center of the tractor). 

When the paper appears in front of the platen, grasp 

it firmly and pull it up so that it lies evenly across 

the tractor. 

Place the holes in the paper on the left and right 

tractor pins and close the tractor pressure plates. 

Reinsert the outfold guide bar. 

Using the knob at the right end of the carriage, feed 

the paper until a crease between two sheets appears 

just above the print wheels. 

To load the carriage control tape into the printer: 

Raise the carriage cover directly above the platen 

clutch knob. 

Raise the brush holder by pulling the lever on the 

right side towards you. 

Insert a carriage control tape (channel one to the 

left) and close the brush holder. 

Close the carriage cover. 



Take-up Reel 



Tear Guide 



After the tape is loaded, a leader (all delete codes) 
may be made by first pressing and holding the DELETE 
key. Now press the FEED key and hold until a leader 
of sufficient length has been punched. Release the 
FEED key before releasing the DELETE key. The 
paper tape punch is now ready to be selected. 



1132 Printer Ready Procedure 

Pre-conditions. POWER ON light on and MOTOR 
switch on. The FORMS CHECK light will be on if 
there are no forms in the printer. 



Readying the 1132 printer. 
the printer: 



To load the forms into 



1. 



2. 



3. 



4. 
5. 



Raise the top cover and disengage the PLATEN 
CLUTCH (set it to OUT). This knob is located 
on the right side of the print carriage (see illus- 
tration below). 

Turn the outside knob on the right end of the 
carriage to ensure that the carriage is free. 
Remove the spring loaded outfold guide bar (the 
bar across the bottom front of the forms tractor, 
directly behind the print wheels). 
Open the left and right tractor pressure plates. 
Now feed the forms from the rear of the printer 
under the form stop bar (three levers) and down 
under the tractor. 



Tractor Assembly 



Tractor Guides 



Form Stop Bar 



Paper Tension Control Guide 



Carriage Tape 




Platen 

Outfold Guide Bar 

Print Wheels 



Platen Clutch 



Brush 

Holder Release 



Platen Knob 



1132 Carriage Familiarization 



Press the CARRIAGE RESTORE key on the 1132 
operator's panel. Engage the platen clutch (set to 
IN) and close the printer top cover. Press printer 
START. When the READY light comes on, the 1132 
printer is ready to be selected. 
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1403 Printer Ready Procedure 

Pre-conditions. System power on. The END OF 
FORMS light will be on if there are no forms in the 
printer. 



Carriage Tape 



Readying the 1403 Printer. 
the printer: 



To load the forms into 



1. Raise the printer cover and set the feed clutch 
selector knob to neutral. This knob is located 
on the right side of the print unit (see illustra- 
tion below). 

2. Unlock the print unit by pulling back on the re- 
lease lever located on the left side of the unit. 
The print unit will swing out to the right. 

3. Open the upper and lower left and right tractor 
guides. 

4. Lift the forms up from their position below the 
front of the printer and lay them back across the 
arched rack at the top of the printer. 

5. Line up the holes in the paper with the tractor 
pins and close all four tractor guides. 

6. Close the print unit and lock the print unit re- 
lease level. The ribbon drive will activate when 
the print unit is closed. 

7. Using the PAPER ADVANCE knob located at the 
right end of the print unit, advance the paper until 
a crease between two forms is about 1/2 inch 
above the print position indicator bar on the 
print unit. 

To load the carriage control tape in the printer: 



Print 
Unit 




Print Unit 



FRONT 



Upper and Lower Tractor Guides 



Forms Stacker Guide 




Rollers 



Raise the carriage brush holder by pulling down 

on the lever on the right side. The carriage 

brush holder is located to the right and slightly 

above the print unit (see illustration). 

Insert the carriage tape (channel one to the left) 

and close the brush holder. 

Set the feed clutch selector knob to 6 or 8 lines 

per inch, whichever is desired. 

Close the printer cover. 



Press the CARRIAGE RESTORE key on the 1403 
operator's panel. Continue to restore until sufficient 
paper has fed over the top arch to extend down the 
back of the printer. Open the rear cover of the printer 
and ensure that this paper has fed down between the 
forms stacker guide and the printer. If the paper has 
fed properly, the rollers on the forms stacker guide 
will keep a constant downward pull on the paper. Close 
the back cover. 



Press CHECK RESET and printer START on the 
operator panel. When the PRINT READY light comes 
on, the 1403 printer is ready. Set the ENABLE/ 
DISABLE switch on the 1133 to the ENABLE position 
(READY light on). The 1403 Printer is now ready to 
be selected. 



2310 Disk Storage Ready Procedures 

Pre-condition. System power on, CARTRIDGE UN- 
LOCKED lights on the 2310 operator's panel on. 

Readying the 2310 Disk Storage Drive. 

1. Open the front door of the disk drive. 

2. Grasp the handle of the access release mechanism 
of the drive to be loaded (drive 1 or 3 on top, 2 or 
4 on the bottom) and pull out and down. 



3. Pick up the cartridge and, holding the cartridge 
with the IBM name towards you and on the left, 
insert the cartridge into the slot. 

4. When the cartridge is seated, raise the access 
release handle to lock the cartridge into place. 
If desired, load the other drive on the 2310 disk 
storage unit. 

Close the front door of the disk storage unit. Turn 
on the START/STOP switch for the desired drives. 
The CARTRIDGE UNLOCKED lights will go out when 
the drives start to turn. When the drives come up to 
speed (approximately 90 seconds) , the indicators 
showing the drive numbers will light, thus showing 
that the heads are loaded and the drives are ready. 

When the drives are required by the system, set 
the ENABLE /DISABLE switches on the 2310 disk 
storage drives and on the 1133 to the ENABLE position 
(1133 READY light on). The 2310 disk storage drives 
are now ready to be selected. 



1627 Plotter Ready Procedure 

Pre-conditions . System power on. 

Readying the 1627 Plotter. Load the chart paper using 
the following procedure. 

1. Ensure the 1627 Power switch is OFF (1627 power 
on indicator lamp out). 

2. Remove the pen assembly, if installed, by loosen- 
ing the knurled knob at the bottom of the pen holder 
and lifting the assembly out of the carriage. 

Caution 



7. Pull a short length of paper off the roll, slide the 
end under the carriage rods, under the tear bar, 
behind the core, and fasten it to the front side of 
the core with two or three short pieces of cello- 
phane tape. Wind one or two turns of paper onto 
the core. Make certain the drum sprockets are 
properly meshed with the sprocket holes on both 
sides of the paper. 

8. Reinstall the pen assembly in the carriage. 

9. Turn the 1627 power switch to ON. The 1627 
power on indicator will come on. 

NOTE: The pen is down when the power is off; there- 
fore, the pen assembly should be installed with the 
carriage over an area outside the "recording area". 
If the pen does not raise when power is turned on, 
turn the pen switch to DOWN, then to UP. 



Tear Bar 




Supply Roll 



Take -op 
Roll 



With the pen in the UP position, use the drum (x axis) 
and carriage (Y axis) controls to position the pen for the 
first plot. The 1627 plotter is now ready to be selected. 



Use care when handling the pen assembly. This 
assembly is manufactured to close tolerances for 
optimum performance. 

3. Rotate the right rear chart spool by hand until the 
drive key is pointing upward. 

4. Hold the new roll of chart paper so that the key 
slot in the core is pointing upward. Place the 
roll against the spring-loaded left rear idler spool 
and force the spool to the left. 

5. Lower the paper roll into the paper well and slide 
the right end onto the drive spool. Make certain 
the drive key engages the key slot in the core. 
The paper should feed out from under the roll 
and over the drum (see illustration). 

6. Install a paper roll core on the front spool below 
the drum, in the same manner as with the paper 
roll. 



1231 Optical Mark Page Reader Ready Procedure 

Pre-conditions. System power on, RESET light on, 
and READ light off. SYSTEM STOP light on if the 
CPU is stopped. 

Readying the Optical Mark Page Reader. Place the 
data sheets in the hopper with the side to be read facing 
up and the top edge positioned to feed first. Set the 
FEED MODE switch to ON-DEMAND. The settings of 
the other selector switches on the operator console are 
dependent on the data being read. 

Press PROGRAM LOAD on the 1231 operator's 
console. This action clears the delay line and conditions 
the machine for program loading. The PROGRAM LOAD 
light turns on. Press 1231 RESET. This causes the 
hopper to raise to the ready position. The RESET light 
turns off and the 1231 START light turns on. Press 
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1231 START. The first data sheet in the hopper is fed 
through the 1231, loading the delay line. The first data 
sheet is now in the stacker. The PROGRAM LOAD light 
turns off. Press 1231 START. The 1231 START light 
turns off. 

With all lights off on the 1231 operator's console 
(the SYSTEM STOP light may be on), the 1231 optical 
mark page reader is ready to be selected. 



USING THE IBM 1130 WITH THE MONITOR SYSTEM 

When all I/O units required for a job are on-line and 
in a ready condition, the user may proceed as follows. 



To display the contents of the address: 



1. Set the console Mode switch to DISPLAY. 

2. Press PROGRAM START. 

The contents of the selected location is displayed in 
the Storage Buffer Register. Successive pressing of the 
PROGRAM START key will display consecutive core 
locations. 

To alter the contents of the address: 

1. Set the new data word in the console entry switches. 

2. Press PROGRAM START. 



Loading a Program from Card or Paper Tape 
On the console: 

1. Press IMM STOP (press PROGRAM STOP if the 
Monitor system is running) . 

2. Press RESET. 

3. Check that the console Mode switch is set to 
RUN mode. 

4. With the reader wired for IPL in a ready state, 
press PROGRAM LOAD (if the system has a 2501 
and a 1442-6 or -7, ensure that the 1442 is not 
ready) . The first record (usually a loader) is 
read into core starting at location zero. Instruc- 
tions on this record tell the system what operation 
is to be performed next, usually the loading of 
more records from the input device. 

5. When a card reader goes not ready, press reader 
START to read in the last card and pass control 

to the loaded program. This action is not required 
with paper tape input. 



Altering or Displaying the Contents of a Selected Core 
Location Using the Console Entry Switches 



1. With the system stopped, set the console Mode 
switch to LOAD. 

2. Set the console entry switches to the desired four- 
character hexadecimal core addrc ss. Switches 0-3 
constitute the first hexadecimal character, 4-7 the 
second, etc. 

3. Press LOAD IAR (the selected address is displayed 
in the IAR). 



1. 
2. 



To return to system operation: 

Set the console Mode switch to RUN. 
Press PROGRAM START. 



NOTE: At a Monitor system WAIT, the address of 
instruction causing the WAIT is at the address displayed 
in the IAR minus 1. 



User Pro- 



Reading the Console Entry Switches Under 
gram Control 



The setting of the console entry switches can be read by 
an XIO read instruction at any time during the execution 
of a user-written stored program. The device code of 
the instruction is set to 00111. 



Entering Programs from the Keyboard Under Monitor 
System Control 

A single Monitor control record or an entire program 
including all required control records and data records 
can be entered from the 1130 Keyboard using the Moni- 
tor System. Control is passed to the Keyboard when a 
II TYP Monitor control record is read from the prin- 
cipal input device. 

Control is returned to the principal input device 
when a // TEND or // JOB record is entered from 
the keyboard. 

Keyboard Operation 

When the // TYP Monitor control record is read, the 
Console Printer performs a carrier return and the 
KB SELECT light on the Keyboard operator's panel 
turns on. The system is now ready to accept input 
from the Keyboard. 



Enter all control records in the correct format. 
Use the space bar for blanks. The records are printed 
on the Console Printer as they are entered. Press 
EOF to end each record. An NL (new line) character 
is entered, the carrier is restored to a new line, and 
the keyboard is reselected. This sequence of events 
continues until a // TEND or // JOB record is entered. 
Pressing EOF then returns control to the principal 
input device. 

Up to 80 characters can be entered in each record. 
If an error is made when entering a record from the 
Keyboard, the user can elect to backspace and correct 
the entry or re-enter the entire record. 

Backspace. When the backspace key (*-) is pressed, 
the last graphic character entered is slashed and the 
address of the next character to be read is decremented 
by +1. If the backspace key is pressed twice consecu- 
tively, the character address is decremented by +2, 
but only the last graphic character is slashed. For 
example, assume that *DELET has been entered and 
the backspace key is pressed three times. The next 
graphic character replaces the L, but only the T is 
slashed. If the characters FINE are used for replace- 
ment, the paper would show *DELETFINE, but *DEFINE 
would be stored in the buffer. 



key trap providing there are no user-written device 
subroutines associated with level 5 currently in core. 
The trap consists of a WAIT and a branch. When the 
PROGRAM START key is pressed, the interrupt level 
is turned off and execution resumes following the point 
of the level 5 interrupt. 

The PROGRAM STOP key trap allows the user to 
stop the entire 1130 system with the ability to continue 
execution without disturbing the system status or the 
contents of core storage. 

If a higher interrupt level is being serviced when 
the PROGRAM STOP key is pressed, the PROGRAM 
STOP key interrupt is masked until the current opera- 
tion is completed. 

INT REQ. Pressing the Interrupt Request key causes 
the current job to be aborted. Control is returned to 
the Supervisor, which then searches for the next JOB 
record in the input stream. 



IMM STOP . Do not press IMM STOP when running under 
Monitor system control. The contents of a system cart- 
ridge can be destroyed, necessitating a regeneration 
of the system. 



Re-entry. When the ERASE FIE ID key is pressed, a 
character interrupt signals the interrupt response sub- 
routine that the previously-entered Keyboard record 
is in error and is to be re-entered. The subroutine 
prints two slashes on the Console Printer, restores 
the carrier to a new line, and prepares to replace the 
old record in the I/O area with the new record. 
The new record overlays the previous record, charac- 
ter by character. Blanks are placed in the buffer fol- 
lowing the NL character which terminated the new 
record. 



Console Functions While Under Monitor System Control 

PROGRAM STOP Key. Pressing this key causes a 
level 5 interrupt and an entry to the PROGRAM STOP 



Manual Dump of the Monitor System 

If a problem occurs during the execution of a core load 
and the user desires to dump core storage, the dump 
entry point in the Skeleton Supervisor can be entered 
by a manually executed transfer to the dump entry 
entry point plus one (location $DUMP+1). A dump of 
the entire contents of core storage is given in hexadeci- 
mal and the dump program ( see Supervisor Core Dump 
Program) executes a CALL EXIT thereby terminating 
the execution of the core load in progress. 

If the dump was necessitated by the introduction of 
baad data in a Monitor system program, the system may 
loop rather than perform the dump. If this occurs when 
DISKZ is in use, the user must manually clear $IOCT 
and $DBSY before reinitiating the dump. 
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DISK ORGANIZATION 



Before describing the contents of a Monitor system and 
non-system cartridge, it is necessary to briefly des- 
cribe the steps to initialize the cartridges for use on 
the system. 

• When the Monitor system is loaded by the System 
Loader onto a disk cartridge that has been initialized 
by the Disk Cartridge Initialization Program (DCIP), 
that cartridge becomes a system cartridge. 

• Placement of a system cartridge on any physical 
drive readies the system for the user-initiated cold 
start procedure. The cold start establishes the 
physical drive on which the system cartridge has 
been placed as logical drive 0, which is, by definition, 
the system drive. The system cartridge on logical 
drive is then called the master cartridge. 



The copy ID (updated by DCIP or COPY) gives the user 
the ability to identify any given copy of a system or non- 
system cartridge. Each time a copy is made, word 5 
(initially 1) is incremented by one, i. e. , word 5 of the 
copy is always one greater than the source. 

The reserved area of sector @IDAD is used by the 
System Loader when the IBM System is loaded on the 
cartridge (see Figure 2). 

Following initialization by DCIP (or DISC), an error 
message and the program that causes it to print are 
stored in sector @IDAD . The error message — NON- 
SYST. CART. ERROR ~ is printed if an attempt is 
made to cold start a cartridge that is not a system 
cartridge. This message and the program that prints 
it are overlaid by the Cold Start program when the 
Monitor system is loaded on the cartridge. 



• The other cartridges on the system (also initialized 
by DCIP) are called non-system cartridges . If 
desired, the I BM system can then be loaded on any 
of these cartridges, thus making them system 
cartridges. However, once a cold start has been 
performed and a master cartridge established, all 
other cartridges, system or non-system, are 
called satellite cartridges. 

The organization of programs and areas on system 
and non-system cartridges is described and illustrated 
below. 
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Figure 1. Contents of Sector (SOIDAD after Initialization by 
DCIP or DISC 



Sector @DDAD of any Cartridge 

This sector, illustrated in Figure 1, contains the defec- 
tive cylinder table, the cartridge ID, the cartridge copy 
code, a reserved area, and an Error Message program. 

The defective cylinder table contains the addresses 
of the first sector on any cylinders on the cartridge 
that are not capable of accurately storing data. The 
Monitor system can be operated from a cartridge with 
up to 3 defective cylinders. 

The cartridge ED is a hexadecimal number in the 
range /0001 - /7FFF that uniquely identifies the 
cartridge. 



Defective 

Cylinder 

Table 



1 I 
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Cartridge ID 
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Reserved 



DISKZ (this copy of DISKZ 
is used only during the cold 
start procedure). 



Cold Start 
Program 



Words: 12 3 4 5 6 30 31 



270 271 320 



Figure 2. Contents of Sector (cMDAD after the IBM System is 
on Disk 
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SYSTEM CABTRIDGE 



The system cartridge is divided into three logical areas, 
which are illustrated in Figure 3. These areas are the 
IBM System Area, the User Area, and the Working 
Storage. In addition, the user may define a Fixed Area 
on disk for the purpose of storing programs and/or 
data files into permanent locations so they may be 
referenced by sector address. 



IBM SYSTEM AREA 

During system generation, the IBM system decks are 
loaded on disk by the System Loader. The disk areas 
occupied by the IBM-supplied Monitor programs, and 
the disk areas reserved for the use of these programs, 
are collectively known as the IBM System Area. 

The contents of the IBM System Area are listed below. 



Cylinder 

The contents of sector @IDAD have already been 
described (see Figure 2). Sector @DCOM contains 
the Disk Communications Area, which is described 
below (see D COM). 

Sector @RIAD contains the Resident Image. The 
Resident Image is a copy of the Resident Monitor with- 
out a disk I/O subroutine, that is, it is a reflection of 
COMMA and the Skeleton Supervisor (see Resident 
Monitor in the section Supervisor) . The Resident 
Image is used to initialize the Resident Monitor during 
a cold start. 



The System Location Equivalence Table (SLET) re- 
sides on sectors @SLET and @SLET+1. SLET is com- 
posed of an identification number, core loading address, 
word count, and sector address for every phase of every 
Monitor program. 

Sector 5 is reserved. 

Sector @RTBL contains the Reload Table , which is 
used by the System Loader during a program reload and 
by the Disk Utility Program (DUP) when deleting the 
Assembler or FORTRAN Compiler. The Reload Table 
is established during system generation when the Sys- 
tem Loader reads the Type 81 System Loader control 
card. 

Sector @HDNG is used to store the page heading that 
appears at the top of each page printed by a Monitor 
program. 



DCOM 

The Disk Communications area, located in sector 
@DCOM of a system cartridge, contains the param- 
eters that must be passed from one Monitor program 
to another and that must be accessed through disk 
storage (as opposed to core storage). Generally 
speaking, parameters that are not required when 
fetching a link stored in Disk Core Image format are 
found in DCOM. A listing of DCOM is provided in 
Appendix H, Resident Monitor. 

DCOM is divided into two parts. The first part of 
DCOM contains the parameters that are not related to 
all the disk cartridges, for example, the core map 
switch. The second part of DCOM contains the 
cartridge-related parameters: cartridge ID, LET 
address, file protect address, etc. Each of the 
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Figure 3. Layout of a System Cartridge 
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parameters in the second part is in the form of a five- 
word table, one word for the corresponding value for 
each of the five possible cartridges. The five words 
of each table, known as a quintuple, are arranged in the 
order of logical drive numbers; that is, the first is for 
logical drive 0, the second for logical drive 1, etc. 

The parameters for the non-system cartridges are ob- 
tained from the DCOM areas of those cartridges and stored 
in the DCOM on the system cartridge through the use of a 
merge operation. For example, the file protect address 
quintuple on the master DCOM is composed of the file pro- 
tect address from each of the other four logical drives, 
plus its own file protect address. 

The subroutine for performing the DCOM merge op- 
eration is called SYSUP and must be called by the user 
for the purpose of updating the DCOM parameters if 
cartridges are changed during a job (see SYSUP in the 
section System Utility Subroutines) . A similar subrou- 
tine is an integral part of the Monitor Control Record 
Analyzer and is executed during JOB processing. 

During the processing of a JOB record, the DCOMs 
of only those cartridges listed on the JOB record are 
merged into the master DCOM. The parameter tables 
for the other drives are cleared to zero. 

DCOM Indicator Words 



Format Indicator word for a cartridge indicates the 
format of any DSF program, DCI program, or Data 
File currently in Working Storage on that cartridge. 
The Format Indicator word for a cartridge is set 
and reset under the same conditions as the Working 
Storage Indicator word for the same cartridge. 

Temporary Mode Indicator Word. The Temporary 
Mode Indicator word in DCOM is set by the Supervisor 
when temporary mode is indicated by the user in the 
JOB record (see // JOB under Monitor Control Records) . 
Table 1 lists DUP operations and any restrictions that 
apply when in temporary mode. The temporary mode 
indicator is set/reset during JOB processing. 



Monitor System Disk Areas 

Following cylinder 0, the IBM System is loaded onto 
disk in the order shown in Figure 3. The individual 
programs are described in the section of this manual 
entitled Monitor Programs; the disk areas are 
described below. 

System Device Subroutine Area. The System Device 
Subroutine Area contains the following components. 



In the following paragraphs, "set" means that a value 
is stored in the word in question; "reset" means that 
it is cleared to zero. 

Working Storage Indicator Word. DCOM contains a 
Working Storage Indicator word for each cartridge on 
the system. The Working Storage Indicator word for 
a cartridge contains the disk block count of any DSF 
program, DCI program, or Data File currently in 
Working Storage on that cartridge. 

The Working Storage Indicator word for a cartridge 
is set (1) at the completion of a DUP operation in which 
information is transferred to Working Storage and (2) 
at the completion of any assembly or successful com- 
pilation, at which time the Assembler or FORTRAN 
Compiler places the assembled/compiled object pro- 
gram in Working Storage. 

The Working Storage Indicator word for a specific 
cartridge is reset 1) following any STORE operation to 
the User Area on that cartridge and 2) following the 
building of a core load that requires LOCALS and/or 
SOCALs. Because the User Area is increased at the 
expense of Working Storage, it is assumed that any 
STORE operation to the User Area overlays a part of 
the Working Storage area with that which was stored. 
Therefore, the Working Storage Indicator word is reset. 

Format Indicator Word. DCOM contains a Format 
Indicator word for each cartridge on the system. The 



The subroutines used by the Monitor programs to 
operate the following print devices. 
1403 Printer 
1132 Printer 
Console Printer 



Table 1. Restrictions on DUP Operations in Temporary Mode 



DUP Operations 


Restrictions 


DUMP 


None 


DUMPDATA 


None 


STORE 


None 


STORECI 


To UA only 


STOREDATA 


To UA and WS only 


STOREDATACI 


To UA only 


STOREMOD 


Not allowed 


DUMPLET 


None 


DUMPFLET 


None 


DWADR 


Not allowed 


DELETE 


Not allowed 


DEFINE FIXED AREA 


Not allowed 


DEFINE VOID ASSEMBLER 


Not allowed 


DEFINE VOID FORTRAN 


Not allowed 
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• The subroutines used by the Monitor programs to 
operate the following I/O devices. 

2501 Card Reader/1442 Card Punch, model 5, 6, or 7 
1442 Card Read Punch, model 6 or 7 
1134/1055 Paper Tape Reader/Punch 
Keyboard/Console Printer 

• The I/O character code conversion subroutines used 
in conjunction with the I/O subroutine for the follow- 
ing devices. 

2501 Card Reader/1442 Card Punch 
1134/1055 Paper Tape Reader/Punch 
Keyboard/Console Printer 

• The disk I/O subroutines. 
DISKZ 

DISK1 
DISKN 

All of the subroutines in the System Device Subrou- 
tine Area, except the disk I/O subroutines, are naturally 
relocatable and are intended for use only by Monitor 
programs. 

The disk I/O subroutines are located in this area 
rather than in the System Library because they are 
processed by the Core Load Builder differently than 
those stored in the System Library. 

DISKZ is stored twice on the disk, once in sector 
@IDAD with the Cold Start program, and once in the 
System Device Subroutine Area with DISK1 and DISKN-. 
Cold Start initializes with the DISKZ in sector @IDAD, 
in all other cases , DISKZ is fetched from the System 
Device Subroutine Area. 

Supervisor Control Record Area. The Supervisor 
Control Record Area (SCRA) is the area in which 
Supervisor control records (LOCAL, NOCAL, and 
FILES) are saved. These records are read from the 
input stream (following an XEQ or STORE CI control 
record) and are stored in the SCRA for subsequent 
processing by the Core Load Builder. 

Fixed Location Equivalence Table (FLET). This table 
is a directory to the contents of the Fixed Area for the 
cartridge on which it appears. There is one FLET 
entry for: 

• Each program stored in Disk Core Image format 

• Each Data File stored in Disk Data format 

• The padding required to permit a DCI program 
or Data File to be stored on a sector boundary. 

Each FLET entry specifies the name of the DCI pro- 
gram or Data File, its format, and its size in disk blocks. 



Each cartridge on the system having a Fixed Area 
has a FLET. Regardless of the size of the Fixed Area 
(one cylinder is the minimum requirement), the FLET 
for a cartridge occupies the cylinder preceding the 
fixed Area (a minimum of 2 cylinders of Fixed Area 
may be initially defined. The first cylinder becomes 
FLET). 

The sector address of the first sector of FLET on 
a given cartridge may be obtained from the LET on the 
same cartridge. The last LET header contains this 
sector address. 

A FLET dump is illustrated in Appendix G. 

Core Image Buffer (CIB). The CIB is the area on disk 
in which the Core Load Builder builds any portion of a 
core load that is to reside below location 4096. It is 
also used by the Core Image Loader to save any COM- 
MON defined below location 4096 during the transfer 
of control from one link to the next. 

Location Equivalence Table (LET). The LET on a 
cartridge is a directory to the contents of the User 
Area on that cartridge. There is one LET entry for: 

• Each entry point for each program stored in Disk 
System format 

• Each program stored in Disk Core Image format 

• Each Data File stored in Disk Data format 

• The padding required to permit a DCI program or 
Data File to be stored on a sector boundary. 

Each LET entry specifies the name of an entry 
point, DCI program, or Data File; its format; and 
its size in disk blocks. 

Each cartridge on the system has a LET. However, 
a cartridge has a User Area only if there is an entry 
in the LET on that cartridge other than a dummy entry 
(1DUMY). On a system cartridge, LET occupies the 
cylinder preceding the User Area. 

COMMA contains the sector address of the first 
sector of LET for each cartridge being used in a given 
job. 

A LET dump is illustrated in Appendix G. 



USER AREA 

The User Area (UA) is the area in which the user can 
store programs in Disk System format or Disk Core 
Image format and/or Data Files in Disk Data format. 
The User Area is defined on any cartridge when the 
cartridge is initialized. However, its size is sectors 
until the first DSF program, DCI program, or Data 
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File is stored in the User Area on that cartridge. The 
User Area occupies as many sectors as are required 
to contain the DSF programs, DCI programs, and Data 
Files stored on that cartridge. 

When a DSF program, DCI program, or Data File is 
to be added to the User Area, it is stored at the start 
of Working Storage, that is, immediately following the 
end of the User Area. The area occupied by the new 
DSF program, DCI program, or Data File is then 
incorporated into the User Area, and Working Storage 
is decreased by the size of that area. 

DSF programs are stored in the User Area starting 
at the beginning of a disk block; DCI programs and 
Data Files are stored starting at the beginning of a 
sector. 

The User Area is packed when a DSF program, 
DCI program, or Data File is deleted from the User 
Area; that is, the DSF programs, DCI programs, 
and/or Data Files in the User Area are moved so as 
to occupy the vacancy (the area formerly occupied by 
the deleted DSF program, DCI program, or Data File). 
In packing, DSF programs are moved to the first disk 
block boundary in the vacancy; DCI programs and Data 
Files are moved to the first sector boundary in the 
vacancy. All following DSF programs, DCI programs, 
and Data Files are similarly packed. 

The area gained by packing the User Area is re- 
turned to Working Storage. 



WORKING STORAGE AREA 

Working Storage (WS) is that area on all cartridges 
that is not defined as the User /Fixed Area and, on a 
system cartridge, as the IBM System Area. Working 
Storage is available to Monitor and user programs 
alike as temporary disk storage. It extends from the 
sector boundary immediately following the User Area 
to the end of the cartridge (cylinder 199). 



from the Fixed Area, no packing of the Fixed Area 
occurs. Hence, DCI programs and Data Files in this 
area reside at fixed sector addresses and can be refer- 
enced as such by the user. 



NON-SYSTEM CARTRIDGE 



Figure 4 shows the layout of a non-system cartridge, 
a cartridge that contains no Monitor programs. Such 
a cartridge on multi -drive 1130 systems can be used 
exclusively for the storage of data and/or programs 
and is called a satellite cartridge. 

Except for cylinder 0, which is described below, 
the definitions of the areas present on a non-system 
cartridge are the same as those previously described 
for a system cartridge. 



Cylinder 

Sector laJDAD of cylinder on a non-system cartridge 
contains the parameters established by DCIP or DISC 
(see Sector @IDAD of any Cartridge) . Note however 
that the Error Message program has not been overlaid 
since this is not a system cartridge. An attempt to 
cold start a non-system cartridge will cause the error 
message to be printed on the Console Printer. Sector 
@DCOM of cylinder contains only that information 
from DCOM applicable to this non-system cartridge 
(see DCOM ). 

The location equivalence table (LET) for the car- 
tridge (see Location Equivalence Table) , occupies the 
remaining six sectors of cylinder 0. 



FDIED AREA 

The Fixed Area (FX) is the area in which the user may 
store programs in Disk Core Image format and/or 
Data Files in Disk Data format if it is desired that 
these programs and Data Files always occupy the same 
sectors. The Fixed Area is optionally defined on any 
cartridge by the use of the DUP operation, DEFINE 
FDIED AREA. This operation is also used to increase 
or decrease the size of the Fixed Area. 

When a DCI program or Data File is stored in the 
Fixed Area, it is stored starting at the beginning of a 
sector. When a DCI program or Data File is deleted 
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1. Present only if a Fixed Area is defined for this cartridge by the user 

2. Optionally defined by the user 

3. May be deleted by the user. However, a CIB must be present on at least 
one of the cartridges on the system at any given time . 



Figure 4. Layout of a Non-System Cartridge 
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MONITOR PROGRAMS 



The Monitor programs: Supervisor, DUP, Assembler, 
FORTRAN Compiler, Core Load Builder, and Core 
Image Loader reside in the IBM System Area on the 
master cartridge. The following paragraphs briefly 
describe these programs and the subprograms within 
them that are of most interest to the user. 



SUPERVISOR 



the link to be executed is in Disk System format, it 
will be necessary to call the Core Load Builder before 
transferring control to the core load itself. ) 

The use of the Core Image Loader as an intermediate 
supervisor allows the Monitor system to achieve 
efficient link-to-link transfer of control. 

The Skeleton Supervisor, which is interspersed 
with COMMA, consists of the entry points and sub- 
routines described below. 



The Supervisor is actually a group of programs and 
areas which are responsible for the control functions 
of the Monitor system. The Supervisor reads control 
records included in the stacked job input, decodes 
them, and calls the appropriate Monitor program to 
perform the specified operation. The Supervisor 
initially achieves control of the Monitor system 
through the user-initiated cold start procedure 
(see Cold Start). 

A portion of the Supervisor is located in core 
storage. This portion is called the Resident Monitor. 



RESIDENT MONITOR 

The resident portion of the Monitor system consists 
of (1) a data area used for system parameters and for 
communication between Monitor programs (COMMA), 
(2) the Skeleton Supervisor, and (3) a disk I/O sub- 
routine (either DISKZ, DISK1, orDISKN). 



Core Communications Area (COMMA) 

In general, COMMA consists of the parameters re- 
quired by the Core Image Loader to process a CALL 
LINK to a D CI program without referring to the Disk 
Communications area (DCOM). This information is 
interspersed with parts of the Skeleton Supervisor 
(see Appendix H, Resident Monitor). 



Skeleton Supervisor 

On any entry to the Resident Monitor (EXIT, LINK, 
or DUMP) , the Skeleton Supervisor calls the Core 
Image Loader, which determines where the Skeleton 
Supervisor was entered and either calls the Super- 
visor if the entry was at EXIT or DUMP or fetches 
and transfers control to the core load specified in the 
CALL LINK statement if the entry was at LINK. (If 



LINK Entry Point. LINK is the entry point in the 
Skeleton Supervisor that accomplishes link-to-link 
transfer of control. 

EXIT Entry Point. EXIT is the entry point in the 
Skeleton Supervisor that accomplishes link-to- 
Supervisor transfer of control. 

DUMP Entry Point. DUMP is the entry point in the 
Skeleton Supervisor that prints out the contents of 
core storage between specified limits. Dynamic 
dumps are obtained through the DUMP entry point; 
terminal dumps are obtained through the DUMP entry 
point plus 1. 

ILS02 Subroutine. The ILS02 subroutine handles the 
servicing of interrupts on level 2. Only the disk de- 
vices on the system interrupt on level 2. Since the 
Skeleton Supervisor requires the disk, the ILS02 sub- 
routine is a part of the Resident Monitor. 

ILS04 Subroutine. The ILS04 subroutine handles the 
servicing of interrupts on level 4. One of the devices 
that interrupt on level 4 is the Keyboard. Since the 
user may perform a console interrupt request at any 
time, the ILS04 subroutine is a part of the Resident 
Monitor. 

Preoperative Error Trap. The preoperative error 
trap is entered by all ISS subroutines when an error 
is detected before an operation has been initiated. 
The trap consists of a WAIT and a branch. When the 
PROGRAM START key is pressed, execution resumes 
at the location following the branch to this trap. Under 
certain conditions, this trap is entered when no error 
has occurred, e.g. , FORTRAN PAUSE. 

Postoperative Error Traps. One of the postoperative 
error traps (there is one for each interrupt level) is 
entered by all ISS subroutines when an error is detected 
after an operation has been initiated. Each trap con- 
sists of a WAIT and a branch. When the PROGRAM 
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START key is pressed, control is returned to the ISS 
subroutine, which may then retry the operation in error. 

PROGRAM STOP Key Trap. The PROGRAM STOP key 
trap is entered if a level 5 interrupt occurs and there 
is no user-written device subroutine associated with 
level 5 currently in core. The trap consists of a 
WAIT and a branch. When the PROGRAM START key 
is pressed, the interrupt level is turned off and execu- 
tion resumes following the point of the level 5 interrupt. 

This trap allows the user to stop the entire 1130 
system with the ability to continue execution without 
disturbing the system status or the contents of core 
storage. 

If a higher interrupt level is being serviced when 
the PROGRAM STOP key is pressed, the PROGRAM 
STOP key interrupt is masked until the current opera- 
tion is completed. 



any of the three disk I/O subroutines; however, only 
one disk I/O subroutine may be referenced in a given 
core load. In this context "core load" includes column 
19 of the XEQ record (the entry in column 19 of the 
XEQ record specifies the version of the disk I/O sub- 
routine to be used by the core load during execution). 



DISK-RESIDENT SUPERVISOR PROGRAMS 

The programs described below are the disk-resident 
programs that constitute the Supervisor. One of these 
programs is fetched and given control by the Core 
Image Loader, depending upon the entry made in the 
Skeleton Supervisor; the Monitor Control Record 
Analyzer is called following an EXIT entry, the DUMP 
program following a DUMP entry. 



Interrupt Request Key 

When the INT REQ key is pressed, all busy indicators 
are turned off and a switch in COMMA is set to instruct 
the Supervisor to pass input records until a JOB record 
is encountered. Parts of the Monitor which should not 
be interrupted before completion, e. g. , SYSUP, delay 
the interrupt request until they have completed their 
operation. 



Disk I/O Subroutine 

The disk I/O subroutine required by the program in 
control resides in core storage following the Skeleton 
Supervisor. The following table lists the disk I/O 
subroutines, their approximate sizes, and the corre- 
sponding addresses of the end of the Resident Monitor 
plus 1. 

End of Resident Monitor +1 
Subroutine (Core Location) 

(in Core) Decimal Hexadecimal 

DISKZ 480 /01E0 

DISK1 660 /0294 

DISKN 930 /03A2 

DISKZ is the disk I/O subroutine used by all system 
programs. DISKZ is initially loaded with the Resident 
Monitor. 

Prior to the execution of a core load requiring 
DISK1 or DISKN, the Core Image Loader overlays 
DISKZ with the required disk I/O subroutine. When 
control is returned to the Supervisor, the Core Image 
Loader overlays the disk I/O subroutine currently in 
core (if DISK1 or DISKN) with DISKZ. User programs, 
including those written in FORTRAN language, may use 



Monitor Control Record Analyzer 

The Monitor Control Record Analyzer (1) reads a 
Monitor control record or Supervisor control record 
from the input stream, (2) prints the control record 
on the principal print device, and (3) fetches the re- 
quired Monitor program and transfers control to it. 
Supervisor control records are stored on disk in the 
Supervisor Control Record Area. 

Supervisor Control Record Area. The Supervisor 
Control Record Area is the area on disk, within the 
IBM System Area, on which the FILES, LOCAL, and 
NOCAL control records are stored from the input 
stream. The Core Load Builder reads these records 
from this area on disk for analysis during the building 
of the core image program. 



MONITOR CONTROL RECORDS 

Monitor control records perform the load and control 
functions of the Monitor system. The individual con- 
trol records are described in the paragraphs that follow. 

Where shown in the control record format, the 
character "b" indicates that the column must be blank. 
Remarks may be punched in the card columns listed 
as "not used" in the control record formats. 



//JOB 

The JOB control record defines the start of a new job. 
It causes the Supervisor to perform the job initialization 
procedure, which includes: 

• The initialization of COMMA 
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• The initialization of the parameters in DCOM 



i The setting of the Temporary Mode Indicator if a T 
is present in column 8 of the JOB control r ecord 
(reset if no T in column 8). If set, the temporary 
mode indicator causes all DSF programs, DCI pro- 
grams, or Data files stored in the User Area by DUP 
during the current job to be deleted automatically 
from that area at the end of the job (that is, at the 
beginning of the next job). See DCOM for DUP re- 
strictions while in the temporary mode. 

1 The definition of the cartridges to be used during 
the current job. IDs 1 through 5 on the JOB control 
record specify the cartridges to be used. These 
cartridges may be mounted on the physical drives 
in any order. The order of the IDs in the JOB con- 
trol record specifies the logical assignments for 
the cartridges. IDs 1 through 5 correspond to logi- 
cal drives through 4, and they must be specified 
consecutively. If only three drives are to be used 
IDs 1-3 only are specified. The cartridge-related 
entries of COMMA and DCOM (quintuples) are filled 
in according to the logical order specified by the 
user. The first ID may be left blank, in which case 
the master cartridge for the last JOB will also be the 
master for this JOB. 

• The definition of the cartridge on which the Core 
Image Buffer for the current job is to be found. The 
ID of the cartridge containing the CIB must follow the 
field of the fifth cartridge ID. If the CIB ID is omit- 
ted, the CIB on the master cartridge is used. Core 
image programs can be built faster if the CIB is 
assigned to a cartridge other than the master 
cartridge. 

• The definition of the cartridge containing the Work- 
ing Storage to be used by the Monitor programs 
(System Working Storage). The ID of the cartridge 
to be used for Working Storage by the Monitor Sys- 
tem must follow the CIB ED. If the Working Storage 
ID is omitted, all Monitor programs use the Work- 
ing Storage on the master cartridge (except when 
otherwise specified, see DUP Control Records) . 
Core Image programs can be built faster if the 
System Working Storage is on a cartridge other than 
the master cartridge. They can be built even faster 
if the CIB, the system Working Storage, and the Mon- 
itor system itself are all on separate cartridges. 
Assemblies are also faster if System Working Stor- 
age is on a separate cartridge. 

• The definition of the cartridge containing the unfor- 
matted I/O ($$$$$) disk buffer area to be used with 
this job. 

• The starting of a new page on the principal print de- 
vice. A skip to channel 1 is executed on the 1132 or 
1403 Printer; or five consecutive carriage returns 
are made on the Console Printer. The page count 



is reset to 1, and the current page heading is re- 
placed with whatever appears in columns 51-58 of 
the JOB control record. HDNG (assembler language) 
statements and ** (FORTRAN control record) 
records will cause additional information to be 
printed. 



The format of the JOB control record is as follows. 



Card 






Column 


Contents 


Notes 


1-6 


//bJOB 




7 


Reserved 




8 


Temporary mode 


T or blank. A T indicates that 




indicator 


temporary mode is desired for this job. 


9-10 


Reserved 




11-14 


First ID 


This is the ID of the master cartridge 
(logical drive 0). 


15 


Reserved 




16-19 


Second ID 


This is the ID of the cartridge on 
logical drive 1. 


20 


Reserved 




21-24 


Third ID 


This is the ID of the cartridge on 
logical drive 2. 


25 


Reserved 




26-29 


Fourth ID 


This is the ID of the cartridge on 
logical drive 3. 


30 


Reserved 




31-34 


Fifth ID 


This is the ID of the cartridge on 
logical drive 4. 


35 


Reserved 




36-39 


CIB ID 


This is the ID of the cartridge con- 
taining the CIB to be used during 
this job. 


40 


Reserved 




41-44 


Working Storage 


This is the ID of the cartridge cont.i til- 




ID 


ing the Working Storage to be used by 
the monitor during this job. See 
•FILES, p. 23, for details on Working 
Storage for user programs. 


45 


Reserved 




46-49 


Unformatted disk 


This is the ID of the cartridge contain- 




I/O ID 


ing the unformatted disk I/O area to 
be used during this job. 


50 


Reserved 




51-58 


Date, Name, etc. 


This information is printed at the top 
of every page of the listing on the 
principal print device during this job. 


59-80 


Not used 





//ASM 

This control record causes the Supervisor to read the 
Assembler into core storage and transfer control to it. 
Any Assembler control records and the source state- 
ments to be assembled must follow this control record. 
Comments control records (// * ) may not follow this 
control record. 

The format of the ASM control record is as follows. 



Card 
Column 


Contents 


Notes 


1-6 

7-80 


//bASM 
Not used 





(See *FILES, p. 23 for working storage for user programs.) 
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//FOR 

This control record causes the Supervisor to read the 
FORTRAN Compiler into core storage and transfer 
control to it. Any FORTRAN control records and the 
source statements to be compiled must follow this 
control record. Comments control records (// * ) may 
not follow this control record. 

The format of the FOR control record is as follows. 



Card 
Column 


Contents 


Notes 


1-6 
7-80 


//bPOR 
Not used 





the Core Load Builder via the LINK entry point in the 
Resident Monitor. 

After the Core Image program has been built, or if 
the name in the control record is that of a program 
already stored on disk in DCI format, the Core Image 
Loader is called to read the core load into core storage 
and transfer control to it. 

If an L is punched in column 14 of this control rec- 
ord, a core map is printed by the Core Load Builder 
during the building of the core image program. In ad- 
dition, a core map is printed for all DSF links during 
the execution (see Reading a Core Map and a File Map 
for an example of a core map). These core maps 
include: 

• The execution address of the mainline program 



//PUP 

This control record causes the Supervisor to read the 
control portion of the Disk Utility Program into core 
storage and transfer control to it. A DUP control 
record must follow this control record. Only one 
// DUP control record is required to process a stack 
of DUP control records, provided no Monitor control 
record other than the Comments control record (// * ) 
is encountered. 

The format of the DUP Monitor control record is 
as follows. 



Card 
Column 


Contents 


Notes 


1-6 
7-80 


//bDUP 
Not used 





//XEQ 

This control record causes the Supervisor to initialize 
for core load execution. If the name specified in this 
control record (columns 8 through 12) is that of a 
mainline program stored in Disk System format, the 
Supervisor reads the Supervisor control records 
(LOCAL, NOCAL, or FILES), if any, from the input 
stream, and writes them in the Supervisor Control 
Record Area (SCRA). The Core Load Builder is then 
called to build a core image program from the mainline 
program. 

If no name is specified on this control record, a 
mainline program in Disk System format is assumed 
to be stored in the Working Storage of the cartridge 
specified in columns 21-24. The Supervisor then 
processes the Supervisor control records and calls 



• The names and execution addresses of all subpro- 
grams in the core load 

• All file allocations, with the file number, sector 
address (relative to first sector of Working Storage 
for files in Working Storage, absolute otherwise), 
sector count, and either cartridge ID or the address 
of Working Storage. (If the file is in Working Stor- 
age, the address of Working Storage will be in- 
cluded; otherwise, the name of the file is printed.) 

Columns 16 and 17 of this control record contain 
the right-justified decimal count of Supervisor control 
records to be read by the Supervisor before calling the 
Core Load Builder. 

Column 19 contains a character that identifies the 
disk I/O subroutine to be used by the core load during 
execution. If column 19 contains zero or one, DISK1 
is fetched by the Core Image Loader along with the core 
load. If Column 19 contains an N, DISKN is fetched. 
If column 19 contains a blank or a Z, no disk I/O sub- 
routine is fetched (that is, DISKZ, which is in core 
storage for use by the Monitor programs, is used by 
the core load) . Any other character is illegal and will 
cause the execution to be bypassed. All links in Disk 
System format that are called during a given execution 
must utilize the same disk I/O subroutine as the link 
that precedes them in execution. 

Comments control records (// * ) may not follow 
an XEQ control record. 

The format of the XEQ control record is as follows. 



Card 
Column 


Contents 


Notes 


1-6 

7 
8-12 


//bXEQ 

Reserved 

Name 


This is the name (left-justified) of the 
DSF program or DCI program to be 
executed. 



(continued) 
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Card 






Column 


Contents 


Notes 


13 


Reserved 




14 


Core Map 


L or blank. An L indicates that a 




Indicator 


core map is to be printed for this and 
all following DSF links during this 
execution. 


15 


Reserved 




16-17 


Count 


This is the right justified decimal 
number of Supervisor control records 
(LOCAL, NOCAL, and FILES) that 
follow. 


18 


Reserved 




19 


Disk I/O 


This column specifies the disk I/O 




subroutine 


subroutine to be loaded into core by 




indicator 


the Core Image Loader for use by the 
core load during execution. 


21-24 


Cartridge ID 


The ID of the cartridge that contains 
the mainline program in its Working 
Storage (valid only if no name is 
specified in columns 8-1 2j blanks 
in this field indicate the System 
Working Storage). 


25-80 


Not used 





// PAUS 

This control record causes the Supervisor to WAIT. 
When PROGRAM START is pressed, the Supervisor 
continues processing Monitor control records from 
the input stream. 

The format of the PAUS control record is as follows. 



Card 
Column 


Contents 


Notes 


1-7 
8-80 


//bPAUS 
Not used 





//TEND 

This control record causes the Supervisor to reassign 
the card or paper tape reader as the principal input 
device. The reassignment is to whichever unit was 
the principal device prior to the detection of a TYP 
control record. 

The TEND control record must be entered from the 
Keyboard. The format of the TEND control record is 
as follows. 



Card 
Column 


Contents 


Notes 


1-7 
8-80 


//bTEND 
Not used 





// EJECT 

This control record causes the 1403 Printer or 1132 
Printer, whichever is the principal print device, to 
skip to a new page and print the page header. Control 
is then returned to the Supervisor, which reads the 
next record in the input stream. The EJECT control 
record itself is printed. 

The format of the EJECT control record is as follows. 



Card 
Column 


Contents 


Notes 


1-8 
9-80 


//bEJECT 
Not used 





//TYP 



This control record causes the Supervisor to tempor- 
arily assign the Keyboard as the principal input device. 
The Keyboard replaces the card or paper tape reader 
as the principal input device until a TEND or JOB 
control record is entered from the Keyboard. 

The format of the TYP control record is as follows. 



Card 
Column 


Contents 


Notes 


1-6 
7-80 


//bTYP 
Not used 





// * (comments) 

This control record allows the user to print alphameric 
text on the listing printed on the principal print device 
by the Supervisor and DUP. The Supervisor and DUP 
simply print the control record and continue reading 
control records from the input stream. The Comments 
control record may not immediately follow an XEQ, 
ASM, or FOR control record. 

The format of the Comments control record is as 
follows . 



With the Keyboard as the principal input device, 
the keyboard functions are identical to those discussed 
for TYPEZ and TYPEO (System Library Subroutines) 
with one exception. The END-OF-MESSAGE character 
causes the rest of the buffer to be filled with blanks. 
Therefore, at the completion of a new message, nothing 
will remain of any previously-entered message. 



Card 
Column 


Contents 


Notes 


1-4 
5-80 


//b* 

User comments 


Any alphameric characters may be 
used. 
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// CPRNT 

This control record causes the Supervisor to print 
all Monitor and Supervisor control records that it 
reads on the Console Printer. Printing by all other 
Monitor programs will be on the principal print device. 

Once the CPRNT control record has taken effect, 
all Monitor and Supervisor control records will be 
printed as described above. To return the printing 
of Monitor and Supervisor control records to the prin- 
cipal print device, a reload function must be per- 
formed by the System Loader to redefine the princi- 
pal print device. 

The format of the CPRNT control record is as 
follows. 



area. The LOCAL subprograms are specified on the 
LOCAL control record as follows: 



Card 
Column 


Contents 


Notes 


1-8 
9-80 


//bCPRNT 
Not used 





1 7 3 4 5 6 7 • 9 10 11 12 13 14 15 16 17 la 19 20 21 22 23 24 25 26 27 26 29 30 31 32 33 34 35 : 


*iLiO.CiA.LiftAAiIiMil. T iSiOiBili J .SiUiBi2i :r i'i-i«i5iSiUiaini i i i i i 


i i i i i i i i i i i i i i i i 


i i i i i i i i i i t i i i i i i i i i i i i i { i i i 


■ i i i i i i i i i i ■ i i i i i ■ ■ i i i i i i i i i 


i i i i i i i i i i i i i i i i i i i i i i i i i i i i i 1 i i i l i 


i i i i i i i i i i i i i i i i i 



where 

MAIN1 is the name of the mainline program 
already stored on disk. SUB1 through SUBn are 
the names of the LOCAL subprograms used with 
that mainline program. 

In the case illustrated below, all the LOCAL control 
records except the last end with a comma (continuation 
character) and the mainline program name appears on 
the first LOCAL control record only. 



SUPERVISOR CONTROL RECORDS 

The control records described below (LOCAL, NOCAL, 
and FILES) are used by the Core Load Builder to: 

• Provide for subprogram overlays during execution 
(LOCAL) 

• Include subprograms not called in the core load 
(NOCAL) 



1 2 3 4 5 4 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 23 26 27 28 29 30 31 32 33 34 35 : 


*iLiOiCi/liLiA*i9iIiMili 7 iS.U.aili ;r iS.L;ifl 1 2i, 1 i i i i i i i i l i i i i 


*Li0iCiA,LiSilJiRi3.,i iii i . i i i i i 


•i i i i i i i i i i i i i i i i i i i i i i i i i i i i i i 


•i i i i i i i i i i i i i i i i 


*i i i i i i i i i i i i i i i i i i i i i i i i i i i i i i i i i i i 


#iLiOiCiAiLiSiUiBi«i i i i i i i i i i i i i i i i i i i i i i i i i i 


i i i i i i i i i i i i i i i i i i i i 


i i t i i i i i i l i i i i i i i i i i i i i i i i i i i i i i i i i 


■ i i i i i i i i i i i i i i i i i i i i i i 


1 1 1 J 1 1. -L 1 1-1 1 1 -l_L._L.I 1 1 



• Equate disk storage files defined in the mainline 
program during compilation or assembly to specific 
files stored on the disk (FILES) 

These control records are placed in the input stream 
following an XEQ Monitor control record that names a 
mainline program stored in Disk System format or 
following a STORECI control record. In either case 
the control records are written on disk in the Super- 
visor Control Record Area (SCRA), from which the 
Core Load Builder reads them for processing. 

Up to 99 Supervisor control records may follow 
the XEQ or STORECI control record. There is no 
specified order (by type) to be followed; however, 
the types may not be intermixed. 

*LOCAL 

LOCAL (load-on-call) subprograms are subprograms 
specified by the user to be read, one at a time, as they 
are called during the execution, into a LOCAL overlay 



The same results would have been obtained if the 
records had been: 



12 3 4 5 6 7 a 9 10 11 12 13 14 15 16 17 IB 19 20 21 22 23 74 25 26 27 2B 29 30 31 32 33 34 35 : 


KiLiOi£i4iL i M/)iIiNi1i 7 iSiUiBi1i i i i i i i i i i i i 


*iLiO.CidiLiAiM.XiA/ili J .SiUiB.a i i > • 


•i i i i i i i i i i i i i i i i i i i i i i i i i i i i i i i i i i i 


•i i i i i i i i i i i i i i i i i i i i i i i i i i i i i i i i i i i 


•r i i i i i i i i i i i i i i i i i i i i i i i i i i 


8qLiOiCt/iiLiMiAiriMifi,iSiUiBiKii i i i i i t i i i i t i i i i i i i i 


i i i i i i i i i i i i i i i i i i i i i i i i i i i i i i i i i i i 


i i i i i i i i i i i i i i i i i i i i i i i i i i i i i i i i i i i 


i i i i i i i i i i i i i i i i i i i i i i i i i i i i i i 


1 1 1 1 1 1 1 I Ill 1 1 1 -1—1 1 -1— L-l 1 1 1 1 1 1 



All the LOCAL subprograms for each mainline pro- 
gram in an execution must be specified on the LOCAL 
control records that follow the XEQ Monitor control 
record initiating the execution. 

Separate LOCAL control records must be used for 
each mainline program in the execution that calls 
LOCAL subprograms. For example, 



22 



I » 3 4 3 6 7 1 » 10 II 12 II 14 15 It 17 18 19 20 21 22 



27282930 31323334333 



KiL iOigi^iLi<li4iri*)ili. iSiOiflHijiSitftflift , iSit-Jift-gj i »■♦■«■■, tS.Uiftiw 



r^j&jL. 



I I I I I I I I I I I I t I I I I I I I I I I I 



I I 1 I I I 



' I ' I ' ' ' ' I 



' I ' I ' I ' I I I 



where 

MAIN2 is a link called by MAIN1. 

If the mainline program is to be executed from 
Working Storage, the mainline program name must 
be omitted from the LOCAL control record. For 
example, 



XLiOiCi4iLi,i^iUigili t iSiUigi2i.i»i»i*ijiS.aigini i i 



113 4 3 



13 16 17 13 19 20 21 22 23 24 23 26 27 28 29 30 31 32 33 34 35 3 



I 



I I I I ' I ' ' 



I' I t I I I I I I I I I I I I I I I I I I I I I I I I I I I I I I I I 



• If a subprogram is specified as a LOCAL subprogram, 
it is included as a LOCAL subprogram in the core 
image program even if it is not otherwise called. 

• The information on all the LOCAL control records for 
an execution may not exceed M+2(C+1) , where M is the 
number of mainlines and C is the number of commas. 
This restriction also applies to NOCAL control records. 

• Only subprogram types 3, 4, 5, and 6 can be named 
on LOCAL and NOCAL control records. Subprogram 
types 3 and 5 are referenced by LIBF statements, 
types 4 and 6 with CALL statements. Types 5 and 6 
are ISSs; types 3 and 4 are subprograms. See 
Appendix C for a description of subprogram types. 

• Conversion tables, e.g., EBPA, HOLTB, may not be 
used as LOCALs. 



♦FILES 



This LOCAL control record format must be used 
if LOCALS are to be specified with the DUP opera- 
tion STORE CI. 

No embedded blanks are allowed in the LOCAL 
control record. 



♦NOCAL 

NOCAL (load-although-not-called) subprograms are 
subprograms specified by the user to be included in 
the core load, even though they are not called. They 
are specified on NOCAL control records using the 
same format that applies to LOCAL control records 
except that *NOCAL is used in place of *LOCAL. 



Rules for LOCAL and NOCAL Usage 

The user must observe the following rules in the 
usage of LOCAL and NOCAL control records: 

• A subprogram cannot be specified as a LOCAL 
subprogram if it causes another subprogram, also 
specified as a LOCAL subprogram in the same 
mainline program, to be called. For example, if 
A calls B and B calls C, and A is a LOCAL sub- 
program, neither B nor C can be specified as a 
LOCAL subprogram for the same mainline program. 

• If a subprogram is specified as a LOCAL subprogram 
and system overlays (SOCALs) are employed, the 
subprogram is made a LOCAL subprogram, even if 
it would otherwise have been included in one of the 
SOCALs. 



By means of FILES control records the file numbers 
specified in FORTRAN DEFINE FILE statements or in 
Assembler FILE statements are equated to the names 
of Data Files stored in the User and Fixed areas. 
FILES control records may also be used to define 
Data Files in Working Storage other than the 
master cartridge. All the User/Fixed Area files 
to be used by all the core loads in an execution 
must be defined in the FILES control records 
following the XEQ Monitor control record initi- 
ating the execution. All the files thus defined 
are available to each core load in the execution. 

When Data Files are equated in a program stored in 
DCI, successful execution of this program requires that 
all cartridges on which these files are stored must be 
in the same condition and on the^same logical drives as 
when the STORECI occurred. This is necessary since 
the Core Load Builder places an absolute sector address, 
including the drive code, into the file table for each 
equated file. 

The format of the FILES control record is as follows. 





ftPir ,L,£&t ,R <ZiL,£, 4 , lAAAiMifi ii 1 , y , ' , • , - 1 3 




KPiZi L1F1S1 ( iftTiLiEi t, r 1/UiAiMiEi i 3 <C\A ifll *'? 


- '<j<(iF,ZiLiBru~,MAMF,m, : ,C,/>ig.H,'it , , 


KF.IiLie-iS^LPiIlL.&iiji-K-i/I.Wi-fi), j,. ,»!•!. 




























1 1 1 1 1 1 1 1 1 1 .1 1 1 1- 1 I 1 _1_L ,1-1 1 1 





where 



FILE1 through FILEn are the file numbers specified 
in the FORTRAN DEFINE FILE statements or 
Assembler FILE statements. 
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NAME1 through NAMEn are the names of Data Files 
already stored on disk. If the name is omitted 
(2 commas are required in the control record for- 
mat) , the file is placed in Working Storage on the 
specified cartridge. 

CAR1 through CARn are the IDs of the cartridges 
on which the respective Data Files are found. If 
the cartridge ID is omitted, it is assumed that the 
corresponding Data File has been defined on the 
master cartridge. 



SUPERVISOR CORE DUMP PROGRAM 

The DUMP program provides the user with a hexadeci- 
mal printout of the contents of core storage. The call- 
ing sequences for the DUMP and PDMP statements are 
contained in the Assembler language manual (Form 
C26-5927). FORTRAN programs access the DUMP Pro- 
gram through the FORTRAN statement CALL PDUMP 
(See FORTRAN language manual, Form C26-3715). 



Continuation of FILES control records may be indi- 
cated by a comma following the last file definition on 
the control record, as follows: 



i > ! i J » ; i i n ii » n u ii i» 17 n » n ii n a a ij » 17 ib » » 3i b a a u : 


*P.X.L.F.S 1 fii=ir 1 Li&A J iMAiM&ii)i ;r i • i i • • i ■ i ■ i • ■ i > ■ 


X,FtIiUei<iiC,FiT,L,E,2, } ,U,AMEi2i,iCJI,R,2 1 '), :t , i . • • i . i . . . 


•i i i i i i i i i i i i i i i i i i i i i i i i i 


*i i i i i i i i ■ i i i i i i i i i i i i i i i i i i i 


*i i i i i i i i i i i i i I i i I I I i I I I I I i i I I l I I I I I 


JfeFiIiLi&Sif (FiIiLi&riijilJiAiMErirliyid/liRitti)! i i t t i • i i i • i 


i i i i i i i i i i i i i i i i i i i i i i i i i 


i i i i i i i i i i i i i i i i i i i i i i i i i i i i i i i i i i i 


i i i i i i i i i i i i i i i i i i i i i i i i i i r i i i 


I'll 'I' 1 1 1 1 1 1 1 1 1 1 [ 1 1 _1__L_1 L 



The continuation comma may appear only immediately 
after a right parenthesis. 

No more than 159 files may be equated during an 
execution. 

No embedded blanks are allowed in the FILES 
control record. 



Terminal and Dynamic Dumps 



The DUMP entry point ($DUMP) in the Skeleton Sup- 
ervisor (and thus the DUMP program in the Super- 
visor) can be entered (1) by a BSI to the DUMP entry 
point, (2) by a manually executed transfer to the DUMP 
entry point plus 1, or (3) by a branch to location zero, 
which contains an MDX to $DUMP+1. 

When the DUMP entry point is entered, a dump of 
the area of core storage bounded by the limit param- 
eters is given in hexadecimal format. Execution of 
the core load in progress then resumes at the location 
following the last parameter of the call to the DUMP 
entry point. 

When $DUMP+1 is entered, a dump of the entire 
contents of core storage is given in hexadecimal 
format. The DUMP program then executes a CALL 
EXIT, thereby terminating the execution of the core 
load in progress. 

A portion of a core dump is printed below. 
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ACCUMULATOR 4000 


EXTENSION 


78D3 


XRl 7FA0 


XR2 7803 XR3 OOOO 


OVERFLOW OFF 




CARRY 


OFF 


ADDR 


***0 


***1 


***2 


***3 


4**4 


***5 


***6 


***7 


***8 


***9 


***A 


***B 


***C 


***D 


***E 


***F 


0000 


703F 


FFFB 


OOOO 


OOOO 


OFFA 


0140 


0080 


OOOO 


7AED 


7C56 


00B3 


OOOO 


00C4 


0091 


8000 


OOOO 


0010 


0000 


5540 


FFFF 


COCO 


0327 


0008 


CC01 


7FA0 


D900 


703F 


4000 


78D3 


00F2 


7400 


OOEE 


70FO 


0020 


4DGC 


C002 


4400 


CCF2 


7400 


COEE 


70F0 


70F4 


7B3F 


30CC 


4C80 


0028 


003F 


0150 


OCCO 


OOOO 


0030 


0000 


0000 


CG01 


OOOO 


OOOO 


CCOO 


COOO 


OOOC 


7014 


CCCC 


1810 


7012 


0001 


0004 


FFFF 


OOOO 


0040 


7400 


0032 


70F0 


0806 


69D2 


C480 


003F 


0001 


C8F3 


44C0 


00F2 


COFO 


7001 


COFO 


D0C7 


7400 


0050 


0032 


70FD 


08BO 


6580 


0039 


C101 


1800 


C100 


D8BB 


6500 


010C 


COFE 


1890 


4400 


0OF2 


7400 


0060 


OOEE 


70F0 


4102 


OOCO 


COOO 


OOOO 


OOOO 


OOOO 


OOOO 


OOOO 


COOO 


OOOO 


CCOO 


OOOO 


COOO 


CCOO 


0070 


COOO 


0000 


COOO 


OOOO 


OOOO 


OOOO 


FFFF 


OOOO 


0802 


0CC1 


OCOO 


CCOO 


OOOO 


OOOO 


OOOO 


OOOO 


0080 


0000 


0000 


30C0 


4C80 


0081 


COOO 


3000 


4C80 


0085 


CCOO 


3000 


4C80 


0089 


OOOO 


3000 


4C80 


0090 


0080 


COOO 


30C0 


4CC0 


C091 


0106 


CCOO 


OOOO 


OOOO 


OCOO 


0140 


OOOO 


OOOO 


OOOO 


OCOO 


9C00 


OOAO 


0000 


COOO 


OOOO 


CCCC 


0658 


C658 


0658 


OOOO 


OOOO 


OCOO 


CCOO 


OOOO 


GOCO 


OOOO 


OCCO 


OOOO 


OOBO 


0000 


COOO 


COOO 


0051 


6906 


6A07 


2807 


080A 


4400 


0CF7 


6500 


7FA0 


6600 


7803 


2000 


C802 


OOCO 


4CC0 


0083 


0001 


9400 


002A 


D818 


280E 


690F 


6A10 


0816 


1002 


4C10 


OOOO 


4480 


002C 


FFFE 


OCOO 


6109 


0810 


1149 


4580 


7FE8 


2CO0 


6500 


7FA0 


6600 


7803 


C803 


4CC0 


00C4 


4001 


4000 


78D3 


OOEO 


0200 


CFCO 


OOOO 


0300 


OOOO 


COOO 


COOO 


GOOO 


GOOO 


OCCO 


COOO 


OOOO 


OCOO 


OCOO 


0011 


OOOO 


OOFO 


OOEF 


FF6A 


004B 


7400 


OOEE 


70F0 


7002 


OOBA 


7015 


69CF 


6A10 


1008 


D03C 


1800 


D05B 


6211 


0100 


6AE0 


COFO 


D0F4 


7053 


4C00 


01BE 


6908 


081E 


6500 


7FA0 


6600 


7803 


4C80 


00F7 


6500 


0004 


0110 


6600 


C0F2 


0819 


D0C9 


4850 


70EE 


C80D 


0900 


74FF 


OOEE 


703E 


C812 


C014 


4293 


1810 


0480 


0120 


0198 


70CD 


0001 


0140 


OFFA 


0140 


C004 


95CC 


0004 


95CC 


0122 


9600 


9400 


9781 


OEBA 


0141 


0130 


5002 


5004 


FECO 


0001 


0080 


C600 


C008 


5000 


0FF8 


01CC 


0701 


0007 


OOOA 


009F 


FFFB 


9680 


0140 


0400 


0141 


OOOO 


FFFF 


CCOO 


OOOO 


1810 


00A6 


74FF 


0032 


1000 


70BC 


C0E3 


70CF 


C0E8 


4400 


0150 


0028 


703A 


C009 


1800 


C101 


1803 


7040 


7401 


0032 


6500 


C004 


C900 


D8C7 


D8D0 


1810 


1084 


0160 


OCOE 


80DB 


D01B 


800A 


D033 


8006 


8008 


80C7 


0006 


62FD 


69BD 


C101 


EOCB 


D101 


9400 


00A4 


0170 


4828 


7006 


C101 


80C2 


7401 


C16F 


7201 


70F5 


6600 


O0F2 


C23D 


E249 


0250 


C400 


009F 


EA4E 


0180 


D23A 


EA43 


D239 


EA50 


9247 


D237 


EA42 


8247 


024D 


EA48 


U23B 


CA3C 


0A3A 


D2EB 


4828 


70BC 


0190 


1002 


4828 


70BB 


100B 


4828 


70BC 


C101 


9400 


009A 


4818 


7014 


1893 


180F 


1002 


EA3A 


18D0 


01A0 


4810 


7002 


F251 


8230 


CA34 


4213 


CA38 


0A34 


4213 


C231 


D480 


0198 


9101 


4C20 


0116 


CA3C 


01B0 


4808 


7094 


8A40 


0A3C 


4830 


1810 


824F 


0100 


CA36 


DA34 


C101 


EA50 


D101 


4213 


C240 


D235 


01C0 


C247 


4820 


4213 


CA32 


0900 


C23C 


4808 


70E9 


7500 


0140 


C900 


OA32 


CA3C 


0900 


708F 


OOOO 


01D0 


OCOO 


COOO 


OOOO 


COOO 


OOOO 


OOOO 


COOO 


OOOO 


OOOO 


OCOO 


COAO 


3333 


016E 


0100 


03C0 


001C 


01E0 


4480 


7DB9 


0006 


6780 


7FFC 


18A0 


CFOO 


0142 


633C 


6FCC 


7925 


6300 


C193 


4C28 


01F1 


6780 


01F0 


7F33 


6F00 


04 5A 


6F00 


02C0 


C120 


4C20 


0307 


C110 


4C28 


02B3 


C700 


7F70 


4C18 


02E7 


0400 


0200 


0395 


4400 


02A9 


C302 


1804 


4C20 


020C 


CCOO 


0342 


DCOO 


7DA4 


7004 


CCOO 


033E 


OCOO 


7DA4 


0210 


4480 


7DB8 


4480 


70B5 


4480 


70B5 


4480 


7DB5 


4480 


70B5 


4480 


7DB5 


C400 


0386 


4418 


03E7 


0220 


4400 


044C 


6600 


035A 


6317 


4079 


4480 


70BB 


7925 


405A 


6600 


7925 


6780 


7FFC 


C302 


4480 


0230 


7CB0 


C928 


0A01 


C303 


4480 


7DB0 


C928 


0206 


18D0 


D207 


C305 


4480 


7DB0 


C928 


DAOD 


C306 


0240 


4480 


7DB0 


C928 


DA13 


4480 


7DBB 


7925 


4480 


7DB5 


4480 


70B5 


4480 


7DB5 


4036 


6600 


0371 


0250 


4C3F 


6600 


037B 


40 3C 


4480 


7085 


6215 


6E00 


039F 


C400 


039B 


D400 


039C 


6680 


7FFC 


7206 


0260 


6A5D 


7201 


6A13 


1810 


0400 


C39D 


4400 


03A7 


1000 


CCOC 


0390 


0916 


4480 


7DB7 


C4C0 


039D 


0270 


4C18 


02B0 


4480 


70BB 


7925 


6600 


7792 


C202 


8400 


039C 


0400 


039C 


7203 


74FF 


039F 


7001 


0280 


703C 


0400 


039B 


70DE 


02EC 


613C 


C008 


0500 


7925 


71FF 


70FC 


6500 


7FA0 


4C80 


0284 


4040 


0290 


0254 


6105 


630A 


400B 


740C 


02A4 


71FF 


70FA 


C003 


DOOA 


4480 


7DBB 


7925 


4C80 


0290 


02F7 


02AO 


6A01 


C700 


032F 


D700 


7925 


73FF 


70FA 


4C80 


029F 


0203 


6780 


7FFC 


CCOO 


0394 


0800 


4480 


02B0 


7DB3 


4C80 


02A9 


C700 


7F6B 


1004 


1804 


4C18 


02D9 


C7C0 


7F6B 


4C00 


OlFF 


C400 


7788 


6700 


02C0 


0004 


4C18 


02D9 


C700 


7F6B 


1004 


1804 


9480 


02BE 


0400 


0386 


C600 


OOFB 


8400 


039B 


0400 


02D0 


039B 


C7C0 


7F70 


180C 


100C 


EC80 


C2BE 


4C00 


OlFF 


C193 


4C10 


02E7 


7301 


6F00 


0336 


74FC 


02EO 


0336 


7005 


1810 


D400 


0386 


4C00 


01FI 


4480 


7DB5 


4480 


70B5 


4098 


CUD 


4C28 


02FF 


C84A 


02F0 


0845 


C84A 


D845 


6600 


032F 


630A 


40A8 


4480 


70BB 


7925 


C845 


DCOO 


70A4 


4480 


7DBD 


C83E 


0300 


D835 


C83fc 


D835 


66C0 


032F 


630A 


70EF 


6827 


4400 


044C 


6700 


7925 


6680 


7FB4 


7201 


C202 


0310 


4C20 


0315 


COIC 


72FD 


70FA 


C019 


4C20 


031B 


C112 


9202 


0112 


1810 


0400 


039D 


C112 


0400 


0320 


039B 


4400 


03A7 


C400 


0390 


4C18 


02E7 


4480 


70BB 


7925 


7203 


C202 


4C20 


02E7 


70F2 


OOOO 


0330 


40C5 


D5C4 


40D6 


C640 


C4E4 


D4D7 


C603 


C5E3 


4040 


4040 


D3C5 


E361 


C603 


C5E3 


C6D3 


C5E3 


0340 


4040 


4040 


03C5 


E340 


7BC3 


C9C4 


0540 


4040 


5BC6 


07C1 


C440 


4040 


7BC6 


D7C1 


C440 


4040 


0350 


7BC3 


C9C2 


C140 


4C40 


7BE4 


D3C5 


E340 


4040 


7BC6 


03C5 


E340 


E2C3 


E3D9 


40D5 


D64B 


4040 


7EB0 


4480 


7DB3 


7A14 


D8C8 


280F 


690C 


6A09 


6B06 


6500 


7FA0 


4C80 


7EB2 


7E4F 


6700 


OOOO 


6600 


7EC0 


7926 


6500 


7FA0 


C8B8 


2001 


4C80 


7EBC 


435E 


4480 


70BA 


0100 


COFB 


0002 


C0B9 


7005 


435E 


7ED0 


4480 


70BA 


0200 


C0B4 


DOAC 


6BAD 


C301 


E0B3 


D115 


4820 


C300 


4C30 


7EE0 


4480 


7DB4 


005C 


7EE0 


80AC 


1800 


1010 


A8AA 


8115 


90A9 


4C08 


7EEB 


4480 


7CB4 


005D 


C896 


4400 


0OF2 


7400 


OOEE 


7EF0 


70FD 


C091 


0116 


8300 


0117 


4480 


7DB7 


C12E 


4C98 


7ECF 


1010 


012E 


4F00 


0002 


70F0 


C080 


7F00 


D116 


8300 


0117 


4480 


7DB7 


C12E 


4C98 


7E0D 


1010 


D12E 


4F00 


0002 


OOOO 


OOOO 


OOOO 


OOOO 


7F10 


0000 


OOOO 


OOOO 


COOO 


OOOO 


OOOO 


OOOO 


OOOO 


OOOO 


OCCO 


OOOO 


OOOO 


OOOO 


OOOO 


0070 


0001 


7F20 


0000 


0000 


OOOO 


COOO 


C406 


3040 


0020 


OOOO 


0200 


OOOO 


COOO 


OOOO 


OCCO 


FFF6 


OCOO 


OOOO 


7F30 


0000 


OOCO 


OOOO 


OOOO 


OOOO 


OOOO 


OOOO 


COOO 


COOO 


0C01 


0001 


010A 


7800 


OCOO 


OOOO 


OOOO 


7F40 


0000 


COCO 


OOCO 


1052 


COCO 


OOOO 


OOOO 


OOOO 


1052 


OCOO 


OOOO 


OOOO 


OOOO 


0106 


OCOO 


COOO 


7F50 


0000 


COOO 


COOO 


2222 


3333 


OOOF 


OABB 


3333 


OOOO 


OOOO 


OOOO 


OOOO 


0140 


OOOO 


OOCO 


OOOO 


7F60 


0000 


0110 


1110 


OOOO 


COOO 


COOO 


FFFE 


OOOO 


OOCO 


OCCO 


COOO 


0118 


OOOO 


OOOO 


OOOO 


COOO 


7F70 


0150 


0000 


OOOO 


OOOO 


OCOO 


0020 


CCOO 


OOOC 


OOOO 


OOOO 


OOOC 


0009 


OCOO 


OOOO 


OCOO 


OOOO 


7F80 


0000 


ccoo 


COOO 


OOOO 


COOO 


CCOO 


OOOO 


OOOO 


OOOO 


OCOO 


OOOO 


OOOO 


OOOO 


OOOO 


OCOO 


GOOO 


7F90 


05A3 


C00B 


C56B 


0010 


03CO 


0015 


0461 


C018 


03C0 


001C 


05A3 


001F 


05A3 


0024 


0500 


0029 


7FA0 


05F8 


0030 


0230 


0035 


0230 


0037 


C248 


0039 


OOOO 


CCOO 


OOOO 


OOOO 


OOOO 


OOOO 


OOOO 


COOO 


7FB0 


0000 


0000 


OOOO 


OOOO 


OOOO 


CCOO 


7803 


7DBB 


OOOO 


CCOO 


CCOO 


OOOO 


OCOO 


OOOO 


OCCO 


OOOO 


7FC0 


OOCO 


0000 


COCO 


OOOO 


OOOO 


OOOO 


OOOO 


OOOO 


OOOO 


CCCC 


COOO 


OOOO 


OOOO 


OOOO 


OOOO 


OOOO 


7FO0 


COOO 


0000 


OOOO 


OOOO 


OOOO 


COOO 


OCOO 


OOOO 


OOOO 


OCOO 


0004 


05 6B 


0461 


70F0 


003F 


OOOO 


7FE0 


7C64 


OOOO 


OOOO 


OOOO 


COOO 


OOOO 


OOOO 


OOOO 


0080 


008D 


0080 


0080 


0080 


7C56 


7AEA 


7AEA 


7FF0 


0000 


0000 


OOAO 


C0F2 


7803 


7DBB 


0802 


78D3 


11DE 


7091 


7A06 


0640 


7782 


7925 


79B5 


7963 
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DISK UTILITY PROGRAM (PUP) 



INFORMATION TRANSFER AND FORMAT 
CONVERSION 



The Disk Utility Program (DUP) provides the user 
with the ability to perform the following operations 
through the use of control records. 

• Store Disk System Format (DSF) programs, Disk 
Core Image (DCI) programs, and Data Files on 
the disk 

• Make the DSF programs, DCI programs, and 
Data Files on the disk available in printed, 
punched card, or punched paper tape output 

• Remove DSF programs, DCI programs, and Data 
Files from the disk 

• Determine the status of disk storage through a 
printed copy of LET/FLET 

• Modify the system 

• Perform other disk maintenance functions 

DUP control records are described in the section of 
this manual entitled DUP Control Records. DUP 
error messages are listed in Appendix A. 



GENERAL FLOW 

DUP is called into operation when the Supervisor 
recognizes a DUP Monitor control record (//DUP). 
The control portion of DUP is brought into core to 
read the next record from the input stream, which 
should be a DUP control record (*...)• The DUP 
control record is printed and analyzed. LET is 
searched for the program specified, and switches 
and indicators are set in accordance with the infor- 
mation obtained from the control record. The DUP 
program required to perform the requested operation 
is then read into core from the disk and given control. 

The DUP program performs its assigned tasks, 
directed by the switches and indicators that were set 
according to the information on the DUP control rec- 
ord. Upon completion of its tasks, the DUP program 
prints a message and returns control to the control 
portion of DUP. The control portion indicates the 
completion of the DUP operation with a printed mes- 
sage and reads the next record from the input stream. 

If the record read is a Monitor control record other 
than comments, control is returned to the Supervisor 
to process the record. If the record read is a DUP 
control record, DUP maintains control and reads the 
next record. Comments Monitor control records are 
simply printed; blank records are passed. 



Table 2 summarizes the DUP operations that transfer 
information from one area or medium to another area or 
medium. In addition, the format conversions made dur- 
ing the transfers of information are shown. The acronyms 
for the various formats are described below. The formats 
are described in Appendix C. 



Acronym 



Format 



DSF 


Disk System Format 


DDF 


Disk Data Format 


DCI 


Disk Core Image Format 


CDS 


Card System Format 


CDD 


Card Data Format 


CDC 


Card Core Image Format 


PTS 


Paper Tape System Format 


PTD 


Paper Tape Data Format 


PTC 


Paper Tape Core Image Format 


PRD 


Printer Data Format 



ALTERING LET/FLET 

The two tables LET and FLET constitute a directory 
to the contents of the User and Fixed areas on disk. 
The allocation of disk storage and, correspondingly, 
the contents of LET/FLET can be altered by the user 
only through the use of DUP. 

Before storing any DSF program, DCI program, 
or Data File, DUP searches LET/FLET to ensure that 
the name of the DSF program, DCI program, or Data 
File does not already appear in LET/FLET on the 
cartridge specified on the DUP control record. (If 
no cartridge is specified, the LET/FLET of every 
cartridge specified on the last JOB record is searched.) 
Disk storage is allocated to the DSF program, DCI 
program, or Data File and a corresponding entry is 
made in LET/FLET only if the name is not found. 

When dumping or deleting a DSF program, DCI 
program, or Data File from the User/Fixed Area, the 
DSF program, DCI program, or Data File is located 
through LET/FLET using the name specified by the 
user in the DUP control record. 

A LET/FLET printout and description is contained 
in Appendix G. 



DUP CONTROL RECORDS 

DUP control records call IBM-supplied programs that 
perform operations involving the disk such as storing, 
moving, deleting, and dumping data and/or programs. 

DUP control records generally follow the format 
described below. Note that all fields in the control 



26 



Table 2. Summary of DUP Data Transfer Operations 



"FROM" 


Area 


"TO" Area Symbols, with Formats 


Formats 


UA 


FX 


WS 


CD 


PT 


PR 


DSF 


DDF 


DCI 


DDF 


DCI 


DSF 


DDF 


DCI 


CDS 


CDD 


CDC 


PTS 


PTD 


PTC 


PRO 


UA 


DSF 












DUMP 


DUMPDATA 




DUMP 


DUMPDATA 




DUMP 


DUMPDATA 




DUMP 
DUMPDATA 


DDF 














DUMP 
DUMPDATA 






DUMP 
DUMPDATA 






DUMP 
DUMPDATA 




DUMP 
DUMPDATA 


DCI 














DUMPDATA 


DUMP 




DUMPDATA 


DUMP 




DUMPDATA 


DUMP 


DUMP 
DUMPDATA 


FX 


DDF 














DUMP 
DUMPDATA 






DUMP 
DUMPDATA 






DUMP 
DUMPDATA 




DUMP 
DUMPDATA 


DCI 














DUMPDATA 


DUMP 




DUMPDATA 


DUMP 




DUMPDATA 


DUMP 


DUMP 
DUMPDATA 


WS 


DSF 


STORE 
STOREMOD 


STOREDATA 


STORECI 


STOREDATA 


STORECI 








DUMP 


DUMPDATA 




DUMP 


DUMPDATA 




DUMP 
DUMPDATA 


DDF 




STOREMOD 
STOREDATA 




STOREMOD 
STOREDATA 












DUMP 
DUMPDATA 






DUMP 
DUMPDATA 




DUMP 
DUMPDATA 


DCI 




STOREDATA 


STOREMOD 
STOREDATACI 


STOREDATA 


STOREMOD 
STOREDATACI 










DUMPDATA 


DUMP 




DUMPDATA 


DUMP 


DUMP 
DUMPDATA 


CD 


CDS 


STORE 


STOREDATA 


STORECI 


STOREDATA 


STORECI 


STORE 


STOREDATA 


















CDD 




STOREDATA 


STOREDATACI 


STOREDATA 


STOREDATACI 




STOREDATA 


STOREDATACI 
















CDC 




STOREDATA 


STOREDATACI 


STOREDATA 


STOREDATACI 




STOREDATA 


STOREDATACI 
















PT 


PTS 


STORE 


STOREDATA 


STORECI 


STOREDATA 


STORECI 


STORE 


STOREDATA 


















PTD 




STOREDATA 


STOREDATACI 


STOREDATA 


STOREDATACI 




STOREDATA 


STOREDATACI 
















PTC 




STOREDATA 


STOREDATACI 


STOREDATA 


STOREDATAC 




STOREDATA 


STOREDATACI 

















record except the count field are always left- justified 
and that unless otherwise stated, all fields are re- 
quired. 

Column 1. Column 1 always contains an * (asterisk). 

Operation Field. Columns 2 through 12 (21 in the 
case of the DEFINE operation) contain the name of 
the desired DUP operation. Columns 2 through 6 
identify the basic operation ( STORED ATACI); col- 
umns 7 through 12 (or 21) identify the extended oper- 
ation (STORE DATACI ). Where shown in the control 
record format, a blank character (b) is required with- 
in or following the operation name. 

FROM and TO Fields. Columns 13 and 14 contain the 
"FROM" symbol, that is, the symbol specifying the 
disk area or I/O device from which information is to be 



obtained (the source). Columns 17 and 18 contain the 
"TO" symbol, that is, the symbol specifying the disk 
area or I/O device to which information is to be trans- 
ferred (the destination). The symbols that must be 
used as the "FROM" and "TO" symbols are shown 
below. 



Symbol 

UA 
FX 
WS 
CD 



PT 
PR 



D isk Area or I/O Device 

User Area, Disk 

Fixed Area, Disk 

Working Storage, Disk 

Card I/O device. If the 1134 has 

been defined as the principal input 

device, CD is equivalent to PT. 

Paper Tape 

Principal print device 
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When used, the symbols UA, FX, and WS each 
specify an area on disk but do not identify the cartridge 
on which the area is found. 

Name Field. Columns 21 through 25 contain the name 
of the DSF program, DCI program, or Data File in- 
volved in the specified DUP operation. The name may 
consist of up to five alphameric characters, and 
must be left-justified within the field. The first 
character must be alphabetic (A-Z, $), and no em- 
bedded blank characters are allowed. 

When referencing a DSF program, DCI program, 
or Data File already stored on disk, the name must 
be an exact duplicate of the LET/FLET entry. 

Count Field. Columns 27 through 30 contain the count. 
The count is always a right -justified decimal integer. 
The count field is defined in the individual control rec- 
ord formats for those operations that require it. 

FROM and TO Cartridge ID Fields. Columns 31 
through 34 contain the cartridge ID of the cartridge 
containing the disk area from which information is to 
be obtained, that is, the "FROM" (source) cartridge 
ID. Columns 37 through 40 contain the cartridge ID 
of the cartridge containing the disk area to which in- 
formation is to be transferred, that is, the "TO" 
(destination) cartridge ID. 

Either or both of these cartridge IDs may be omit- 
ted. If a cartridge ID is omitted, and the correspond- 
ing FROM or TO field is the User or Fixed Area, a 
search is made of the LET/FLET on each cartridge 
specified on the JOB record, starting with the cartridge 
on logical drive zero (the master cartridge) and con- 
tinuing through logical drive four. If the correspond- 
ing FROM or TO field is Working Storage, then a 
default to System Working Storage is made. If a 
cartridge ID is specified, the LET/FLET on the 
specified cartridge only is searched, or System Work- 
ing Storage is used. 

Use of the "FROM" and "TO" cartridge IDs makes 
it possible for DUP (1) to transfer DSF programs, DCI 
programs, and Data Files from one cartridge to another 
without deleting them from the source cartridge, and 
(2) to operate on a DSF program, DCI program, or 
Data File even though the same name appears in the 
LET/FLET on more than one cartridge. 

Unused Columns. All unused columns between columns 
2 and 40 must be left blank. Columns 41 through 80 are 
ignored by DUP and are available for user's remarks. 

DUP Operations and Control Record Formats 

The following are descriptions of the various DUP 
operations. Each description consists of (1) a brief 
description of the processing performed, (2) a break- 



down of the control record for the operation, and (3) a 
table of the transfers and format conversions possible 
in the operation. 



*DUMP 

The DUMP operation moves information from the User/ 
Fixed Area on disk to Working Storage or makes infor- 
mation from the User/Fixed Area and Working Storage 
available as card, paper tape, or printed output. The 
print format is illustrated in Appendix C. 

The movement of DSF programs from the User/ 
Fixed Area to the output devices is accomplished in 
two phases; that is, the information is first moved to 
System Working Storage and then to the output device. 
Hence, information residing in Working Storage on the 
cartridge defined in the JOB Monitor control record 
by the Working Storage ID (see // JOB under Monitor 
Control Records) is destroyed during the DUMP oper- 
ation. Data Files and DCI programs are moved directly 
from the User/Fixed Area to the output devices. 

The number of disk blocks to be dumped is obtained 
from the LET/FLET entry, or, if the dump is from 
Working Storage, from the appropriate Working Storage 
Indicator in DCOM. 

The format of the DUMP control record is as follows. 



Card 






Column 


Contents 


Notes 


1-6 


*DUMPb 




7-12 


Reserved 




13-14 


"FROM" 


See chart below. If the dump is from 




symbol 


Working Storage and the corresponding 
Working Storage Indicator is zero, an 
error message is printed (see DUP 
error messages, Appendix A). 


15-16 


Reserved 




17-18 


"TO" symbol 


See chart below. If the dump is to 
cards and if a 1442-6 or 1442-7 is 
utilized, each card is checked to see 
that it is blank before it is punched. 
If a non-blank card is read, the 
System will WAIT at $PRET with /100F 
displayed in the Accumulator after the 
appropriate erroi message has been 
printed (see DUI •■ .*ror Messages, 
Appendix A). 


19-20 


Reserved 




21-25 


Program name 


The name is required except when the 
dump is from Working Storage to the 
printer. 


26-30 


Reserved 




31-34 


"FROM" 
cartridge 
ID 




35-36 


Reserved 




37-40 


"TO" 
cartridge 
ID 




41-80 


Not used 





28 



The following chart is a summary of the information 
transfers and format conversions performed by DUMP. 



Possible Sources, 

lTM?fii*" Ti g Fcmiats 


Possible Destinations, 
Including Formats 


UA(DSF) 


WS(DSF) 


UAorWS(DSF) 


CE(CDS) 

PTipPTS) 

PB(PRD) 


UAorFX(DDF) 


WS(DDF) 


UA, EX, orWS(DDF) 


CD(CED) 
PTfPTD) 
PR(PRD) 


UAorFX(DCI) 


WS(DCq 


UA, FX, orWS(DCI) 


CDJCDC) 
PTfPTC| 
PR(FRD) 



*DUMPDATA 

The DUMPDATA operation moves information from 
the User/Fixed Area on disk to Working Storage or 
makes information from the User/Fixed Area and 
Working Storage available in card, paper tape, or 
printed output. The print format is similar to that 
of DUMP (see Appendix C). The DUMPDATA oper- 
ation differs from the DUMP operation in that the in- 
formation, after transfer, is always in data format, 
and the amount of information transferred is dependent 
upon the count field of the DUMPDATA control record 
rather than the actual length of the program or data. 

Information is moved directly from the User/Fixed 
Area or Working Storage to the output devices. The 
contents of Working Storage are not changed. 

The count field (columns 27-30) in the DUMPDATA 
control record specifies the number of sectors to be 
dumped. This number of sectors is dumped regard- 
less of the length of the DSF program, Dd program, 
or Data File, as indicated in the LET/FLET entry or 
in the Working Storage Indicator. 

The format of the DUMPDATA control record is 
as follows. 



Card 






Column 


Contents 


Notes 


1-10 


*DUMPDATAb 




11-12 


Reserved 




13-14 


"FROM? symbol 


See chart below. 


15-16 


Reserved 




17-18 


"TO» symbol 


See chart below. If the damp is to 
cards, and if a 1442-6 or 1442-7 is 
utilized, each card is checked to 
see that it is blank before it is 
punched. 


19-20 


Reserved 




21-25 


Program name 


The name is required except when 
the dump is from Working Storage to 
the printer. 


26 


Reserved 





Card 






Column 


Contents 


Notes 


27-30 


Count 


The <xmnt (right justified, decimal) 
specifies the number of sectors to be 
damped. The count overrides the 
Cfwitpnts of the Working Storage In- 
dicatnr and Ike disk block count in 
the LET/FLET entry. 


31-34 


■FROM" 
cartridge ID 




35-36 


Reserved 




37-40 


"TO* 
cartridge ID 




41 -SO 


Not used 





The following chart is a summary of the information 
transfers and format conversions performed by 
DUMPDATA. 



Possible Sources, 
Including Formats 


Possible Destinations, 
Including Formats 


UA(DSF) 


WS(DDF) 


UAorWS(DSF) 


CD(CDD) 
PTflPTD) 
PR(PRD) 


UA or FX (DDF) 


WS(DDF) 


UA, FX, orWS(DDF) 


CD(CDD) 
PT(PTD) 
PFJPRD) 


UA(DCI) or FX[DDF) 


WS(DDF) 


UA, EX, orWS(DCI) 


CD(CDD) 
PT(PTD) 
PR(PRD) 



♦DUMPLET 

The DUMPLET operation prints the contents of LET 
on the principal print device. In addition, the contents 
of FLET are also printed on the principal print device 
if a Fixed Area has been defined by the user. 

If the name of a DSF program, DCI program, or 
Data File is specified in the DUMPLET control record, 
only the LET/FLET entry corresponding to that name 
is printed. If a cartridge ID is specified in the control 
record, the LET/FLET on only that cartridge is printed. 
If neither name nor cartridge ID are specified, the en- 
tire contents of both LET and FLET on each cartridge 
specified on the JOB record are printed. A sample 
LET/FLET dump and description appears in Appendix G. 

The format of the DUMPLET control record is as 
follows. 



(continued) 



Card 






Column 


Contents 


Notes 


1-8 


*DIMPLET 




9-20 


Reserved 




21-25 
26-30 


Program name 
Reserved 


Use of the name specifies that the 
LET/FLET entry for that name only is 
to be printed. 


31-34 
35-80 


"FROM?" 

cartridge ID 
Not used 


If an ID is specified, the LET/FLET 
on that cartridge only is printed. 
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♦DUMPFLET 

The DUMPFLET operation prints the contents of F LET 
on the principal print device. 

If the name of a DCI program or Data File is speci- 
fied in the DUMPFLET control record, only the FLET 
entry corresponding to that name is printed. If a 
cartridge ID is specified in the control record, the 
FLET on that cartridge only is printed. If neither 
name nor cartridge ID are specified, the entire con- 
tents of the FLET on each cartridge defined on the 
JOB record are printed. A sample LET/FLET dump 
and description appears in Appendix G. 

The format of the DUMPFLET control record is 
as follows. 



Card 






Column 


Contents 


Notes 


1-10 


♦DUMPFLETb 




11-20 


Reserved 




21-25 


Program name 


Use of the name specifies that the 
FLET enlry for that name only is to be 
printed. 


26-30 


Reserved 




31-34 


"FROM? 1 


If an ID is specified, the FLET on 




cartridge ID 


that cartridge only is printed. 


35-80 


Not used 





Card 






Column 


Contents 


Notes 


1-6 


♦STORE 




7-10 


Reserved 




11-12 


Subtype (for type 


See "System Overlays" under Core 




3,4, 5 and 7 


Load Builder. 




subprograms 






only) 




13-14 


"FROM" symbol 


If the STORE operation is from Work- 
ing Storage and the corresponding 
Working Storage, Indicator is zero, an 
error message is printed (see DUP 
Error Messages, Appendix A). 


15-16 


Reserved 




17-18 


"TO" symbol 


See chart below. 


19-20 


Reserved 




21-25 


Program name 


The name is required except when 
the STORE operation is to Working 
Storage. 


26-30 


Reserved 




31-34 


"FROM" 
cartridge ID 




35-36 


Reserved 




37-40 


"TO" 
cartridge ID 




41-80 


Not used 





The following chart is a summary of the information 
transfers and format conversions performed by STORE . 



♦STORE 

The STORE operation moves information from Work- 
ing Storage to the User Area or accepts information 
from the input devices and moves it to Working Stor- 
age or the User Area. 

All movement of information from the input devices 
to the User Area is accomplished in two phases; that 
is, the information is first moved to the System Work- 
ing Storage and then to the User Area. Hence, infor- 
mation residing in Working Storage on the cartridge 
defined in the JOB Monitor control record by the 
Working Storage ID (see // JOB under Monitor Control 
Records ) is destroyed during the STORE operation. 

Since the User Area and Working Storage are ad- 
jacent areas , and since the User Area expands as 
needed into what had been Working Storage, DUP 
assumes that on any STORE operation to the User 
Area, the contents of that Working Storage are des- 
troyed. Therefore, the appropriate Working Storage 
Indicator is reset to zero following the STORE oper- 
ation to the User Area. 

DUP makes the required LET entry (or entries) for 
each program stored. A LET entry is made for each 
entry point in the program. DUP supplies the disk 
block count required in the LET entry for the primary 
entry point. 

The format of the STORE control record is as 
follows. 



Possible Sources, 
Including Formats 


Possible Destinations, 
Including Formats 


WS(DSF) 


UA(DSF) 


CD(CDS) 
PT(PTS) 


UA or WS(DSF) 



*STOREDATA 

The STORED ATA operation moves information from 
Working Storage to the User/Fixed Area or accepts 
information from the input devices and moves it to 
Working Storage or the User/Fixed Area. DUP as- 
sumes that the input to the STOREDATA operation is 
in data format; the output from the STOREDATA oper- 
ation is always in data format. 

Information is moved directly from the input devices 
to the User/Fixed Area. The contents of Working Stor- 
age are not changed except that when storing to the 
User Area, the contents of Working Storage on that 
drive are destroyed since the User Area and Working 
Storage are adjacent areas. 

DUP makes the required LET/FLET entry. The name 
specified on the STOREDATA control record is the name 
used to generate the LET/FLET entry and is the name 
that must be used in all subsequent references to the 
Data File. DUP supplies the disk block count required 
in the LET/FLET entry if the source is cards or paper 
tape. If the source is Working Storage, the sector count 
specified in the STOREDATA control record is used. 
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The format of the STORED ATA control record is 
as follows. 



Card 






Column 


Contents 


Notes 


1-10 


♦STOREDATA 




11-12 


Reserved 




13-14 


"FROM" symbol 


See chart below. 


15-16 


Reserved 




17-18 


"TO" symbol 


See chart below. 


19-20 


Reserved 




21-25 


Program name 


The name is not required when the 
STORE operation is from cards or 
paper tape to Working Storage. 


26 


Reserved 




27-30 


Count 


If the source is Working Storage, the 
count is the number (decimal) of 
sectors of data to be stored. This 
count overrides the contents of the 
Working Storage Indicator. If the 
source is cards, the count is the num- 
ber (decimal) of cards to be read. If 
the source is paper tape, the count is 
the number (decimal) of paper tape 
records to be read. 


31-34 


"FROM" 
cartridge ID 




35-36 


Reserved 




37-40 


"TO" 
cartridge ID 




41-80 


Not used 





The following chart is a summary of the information 
transfers and format conversions performed by 
STORED ATA. 



Possible Sources, 
Including Formats 


Possible Destinations, 
Including Formats 


WS(DSF, DDF, DCI) 


DA or FX(DDF) 


CD(CDS, CDD, CDC) 


UA, FX, orWS(DDF) 


FT(PTS, PTD, PTC) 


UA, FX, orWS(DDF) 



♦STOREDATACI 

The STOREDATACI operation moves information from 
Working Storage to the User/Fixed Area on disk or 
accepts information from the input devices and moves 
it to Working Storage or to the User /Fixed Area. If 
the input is from cards or paper tape, the STORE- 
DATACI operation assumes the input format to be 
card or paper tape core image format. If the input 
is from Working Storage (the information has been 
previously dumped to Working Storage or stored in 
Working Storage from an input device), the appropriate 
Format Indicator must indicate Disk Core Image format 
(DCI); otherwise, no STORE operation is performed. 
The output from the STOREDATACI operation is always 
in Disk Core Image format. 



All movement of information from the input devices 
to the User/Fixed Area is done directly; that is, the 
transfer is not made via Working Storage. Hence, the 
contents of Working Storage are not changed by the 
STOREDATACI operation when storing information from 
an input device to the Fixed Area. Note, however, 
that when storing to the User Area, the contents 
of Working Storage on that drive are destroyed. 

DUP makes the required LET/FLET entry. The 
name specified on the STOREDATACI control record is 
the name used to generate the LET/FLET entry and is 
the name that must be used in all subsequent references 
to the core image program. DUP computes the disk 
block count required in the LET/FLET entry from the 
count specified in the STOREDATACI control record. 

The format of the STOREDATACI control record is 
as follows. 



Card 






Column 


Contents 


Notes 


1-12 


♦STOREDATACI 




13-14 


"FROM" symbol 


See chart below. 


15-16 


Reserved 




17-18 


"TO" symbol 


See chart below. 


19-20 


Reserved 




21-25 


Program name 


If the STORE operation is to Working 
Storage, the name is not required. 


26 


Reserved 




27-30 


Count 


The count (right justified, decimal) 
is the number of records in the core 
image inpuU, The count is not re- 
quired if- the source is Working 
Storage. 


31-34 


"FROM" 
cartridge ID 




35-36 


Reserved 




37-40 


"TO" 
cartridge ID 




41-80 


Not used 





The following chart is a summary of the information 
transfers and format conversions performed by 
STOREDATACI. 



Possible Sources 
Including Formats 


Possible Destinations, 
Including Formats 


WS(DCI) 


UA or FX(DCI) 


CD(CDC, CDD) 


UA, FX, orWS(DCI) 


PT(PTC, PTD) 


UA, FX, orWS(DCI) 



*STORECI 

The STORE CI operation obtains an object program from 
Working Storage or from an input device, converts it 
into a core image program using the Core Load Builder, 
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Mainline 
>t 


Subprograms 

n 


LOCAl/ 

SOCAL 

Flipper 


LOCAL 
Area 


SOCAL 
Area 


COMMON 


Transfer 
Vector 


LOCALs 


SOCALs 



" Core Image Header 

Figure 5. Layout of a Core Image Program Stored in the User/Fixed Area 



and stores the core image program into the User/ 
Fixed Area. 

The Core Load Builder is fetched to build a core 
image program for the STORE CI operation as if execu- 
tion were to follow; that is, that portion of the core 
load residing above core location 4096 is placed in the 
System CIB, and LOCALs and/or SOCALs are placed 
in System Working Storage. The STORE CI operation 
stores all these portions of the core image program 
into the "TO" (destination) area. 

The DCI program stored in the User /Fixed Area 
includes the Transfer Vector built by the Core Load 
Builder; however, neither the disk I/O subroutine nor 
any COMMON area is included. Figure 5 shows the 
layout of a DCI program as it is stored in the User/ 
Fixed Area. No scale is intended in this illustration. 

DUP makes the required LET/FLET entry for the 
core image program as it is stored. The name speci- 
fied on the STORE CI control record is the name used 
to generate the LET/FLET entry and is the name that 
must be used in all subsequent references to the DCI 
program. DUP obtains the disk block count required 
in the LET/FLET entry from the Core Load Builder. 

The format of the STORE CI control record is as 
follows. 



Card 






Column 


Contents 


Notes 


1-8 
9 


*STORECI 
Disk I/O subroutine 
indicator 


This column specifies the disk I/O 
subroutine to be loaded into core by 
the Core Image Loader for use by the 
core load during execution. 

Indicator Disk Subroutine 

0,1 DISK1 

N DISKN 

blank or Z DISKZ 

all others An error message is 

printed (see DUP Error 
Messages, Appendix 


10-12 
13-14 


Reserved 
"FROM" symbol 


See chart below. If the STORE oper- 
ation is from Working Storage and the 
corresponding Working Storage Indica- 
tor is zero, an error message is printed 
(see DUP Error Messages, Appendix A), 


15-16 
17-18 


Reserved 
"TO" symbol 


See chart below. 


19-20 


Reserved 




21-25 
26 


Program name 
Reserved 

- 





Card 






Column 


Contents 


Notes 


27-30 


Count 


The count is the number (decimal) of 
FILES, NOCAL, and LOCAL control 
records that follow the STORE CI con- 
trol record. These records are read 
by DUP for use by the Core Load 
Builder before the STORE operation is 
performed. Note that the mainline 
program name must not be used on 
the LOCAL or NOCAL control records. 
Data files named in FILES record 
must be in Fixed Area. 


31-34 


"FROM" 
cartridge ID 




35-36 


Reserved 




37-40 


"TO" 
cartridge ID 




41-80 


Not used 





The following chart is a summary of the information 
transfers and format conversions performed by 
STORECI. 



Possible Sources, 
Including Formats 


Possible Destinations, 
Including Formats 


WS(DSF) 


UA or FXj(DCI) 


CD(CDS) 


UA or FX(DCI) 


PT(FTS) 


UA or FX(DCI) 



(continued) 



*STOREMOD 

The STORE MOD operation moves information from 
Working Storage into the User/Fixed Area. If the name 
of the DSF program, DCI program, or Data File speci- 
fied on the STOREMOD control record is identical to an 
entry in LET/FLET (that is, a DSF program, DCI pro- 
gram, or Data File of the same name already resides 
in the User/Fixed Area) , the information in Working 
Storage overlays (replaces) that DSF program, DCI 
program, or Data File in the User/Fixed Area. The 
format of Working Storage must match the format of 
the LET/FLET entry which is to be replaced. 

If the name on the STOREMOD control record does 
not match an entry in LET/FLET, a simple STORE 
operation is performed (see *STORE) . 

The STOREMOD operation permits the user to mod- 
ify a DSF program, DCI program, or Data File in the 
User/Fixed Area without changing its name or relative 
position within the area. However, the length of the 
DSF program, DCI program, or Data File in Working 
Storage cannot be greater than the length of the DSF 
program, DCI program, or Data File that it replaces 
in the User /Fixed Area. No change is made to the 
LET/FLET entry as a result of this operation. 
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The format of the STORE MOD control record is as 
follows. 



Card 






Column. 


Contents 


Notes 


1-10 


♦STOREMODb 




11-12 


Reserved 




13-14 
15-16 


"FROM" symbol 
Reserved 


The source is always Working Storage. 


17-18 
19-20 


"TO" symbol 
Reserved 


See chart below. 


21-25 
26-30 


Program name 
Reserved 




31-34 


"FROM" 




35-36 


cartridge ID 
Reserved 




37-40 


"TO" 




41-80 


cartridge ID 
Nat used 





The following chart is a summary of the information 
transfers and format conversions performed by 
STOREMGD. 



Possible Sources, 
Including Formats 


Possible Destinations, 
Including Formats 


WS(DSF) 


UA(DSF) 


WS(DDF) 


UA or FX(DDF) 


WS(DCI) 


UA or FX(DCI) 



♦DELETE 

The DELETE operation removes a specified DSF pro- 
gram, DCI program, or Data File from the User/ 
Fixed Area. The deletion is accomplished by the 
removal of the LET/FLET entry (or entries) for the 
DSF program, DCI program, or Data File, including 
the dummy entry for associated padding, if any. 

If a DSF program, DCI program, or Data File is 
deleted from the User Area, that area is packed so 
that (1) the areas represented by LET entries are con- 
tiguous, and (2) Working Storage can be increased by 
the amount of disk storage formerly occupied by the 
"'deleEecTDSF" program, DCI^program, or TJata File. 

If a DCI program or Data File is deleted from the 
Fixed Area, no packing of that area occurs. The 
FLET entry for the deleted DCI program or Data File, 
including the dummy entry for associated padding, if 
any, is replaced by a single dummy entry (1DUMY) 
representing the area formerly occupied by the deleted 
DCI program or Data File and its padding. DUP store 
operations may be used to place new entries in the 
Fixed Area. 

The contents of Working Storage are not destroyed 
by the DELETE operation. 

The format of the DELETE control record is as 
follows. 



Card 






Column 


Contents 


Notes 


1-8 


*DELETEb 




9-20 


Reserved 




21-25 


Program name 




26-30 


Reserved 




31-34 


"FROM" 


The deletion is performed on the specified 




cartridge ID 


cartridge only. If no cartridge ID is 
specified, and the program or data file 
name (21-25) is present in LET/FLET of 
more than one cartridge specified for this 
JOB, the deletion will be from the first 
logical drive on which the name is 
found. 


35-80 


Not used 





♦DEFINE 

The DEFINE operation (1) initially establishes the size 
of the Fixed Area, (2) increases or decreases the size 
of the Fixed Area, (3) deletes the Assembler or 
FORTRAN Compiler, or both, from the System Area. 
If the Assembler and/or FORTRAN Compiler is to be 
deleted, this deletion must be performed prior to de- 
fining the Fixed Area on the master cartridge (or after 
completely removing a defined Fixed Area). 

Definition of a Fixed Area on disk allows the user to 
store DCI programs and Data Files in fixed locations, 
which can subsequently be referred to by sector address. 
The Fixed Area is defined in cylinder increments (one 
cylinder minimum). When a FD0ED AREA is defined, 
one cylinder is always reserved for FLET, i. e. , the 
initial definition of the Fixed Area must be two cylinders. 



Increases and decreases in the size of the Fixed 
Area must also be made in cylinder units; however, the 
Fixed Area cannot be decreased by a number greater 
than the number of unused cylinders at the end of the 
last program or data file in the Fixed Area. If all DCI 
programs and Data Files have been deleted from the 
Fixed Area (1DUMY entries) and the Fixed Area is de- 
creased to less than two cylinders by a DEFINE FKED 
AREA control record, the remaining Fixed Area, as well 
as FLET, is deleted. The Fixed Area and FLET will 
likewise be deleted if ffie DEFINE FKED AREA control 
record specifies a decrease that exceeds the number of 
cylinders of Fixed Area on the cartridge. 



The control record format for definition of the Fixed 
Area is described below. 



Card 
Column 


Contents 


Notes 


1-8 

9-18 

19-26 


♦DEFINEb 

FIXEDbAREA 

Reserved 





(continued) 
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Card 
Column 


Contents 


Notes 


27-30 

31 

32-36 
37-40 

41-80 


Count 

Sign 

Reserved 
Cartridge ID 

Not used 


In initial definition of the Fixed Area, the 
count is the number (decimal) of cylinders 
to be allocated as the Fixed Area which 
must INCLUDE one cylinder for FLET, thus 
a minimum of two cylinders must be speci- 
fied. After initial definition, the count is 
the number of cylinders by which the Fixed 
Area is to be increased or decreased. 
If the Fixed Area is being decreased, this 
column contains a minus sign; otherwise, 
it is blank. 

This ID specifies the cartridge which is to 
be altered. 



Deletion of the Assembler and/or FORTRAN Com- 
piler causes the specified Monitor programs to be 
removed from the IBM System Area on the master 
cartridge. The IBM System Area is then packed so 
that following programs and areas occupy the areas 
formerly occupied by the deleted Monitor programs. 
SLET entries are updated to reflect the new disk stor- 
age allocation for the Monitor programs. The reload 
table is used to make adjustments in the programs 
which use disk storage addresses from SLET. If the 
Assembler and/or FORTRAN Compiler is to be deleted, 
the user must perform this deletion before defining the 
Fixed Area on the master cartridge, or after completely 
removing the Fixed Area. After the Assembler and/or 
FORTRAN Compiler have been deleted, neither can be 
restored without performing an initial load. 

The control record format for deletion of the Assem- 
bler and/or FORTRAN Compiler is described below. 



Card 






Column 


Contents 


Notes 


1-8 


♦DEFDNEb 




9-13 


VOIDb 




14-22 


ASSEMBLER or 
FORTRANbb 




23-80 


Not used 





*DWADR 

The DWADR control record causes a sector address to 
be written on every sector of Working Storage on the 
cartridge specified by the DWADR control record, or 
if no ID is specified, on the System Working Storage. 
The operation restores correct disk sector addresses 
in Working Storage if they have been modified during 
execution of a user's program. 

The contents of Working Storage prior to the operation 
are destroyed. 

Following the sector address word (word 0) , the first 
240 words of each sector contain the sector address of 
that sector, including the drive code. The remaining 
80 words of each sector contain zeros. 

A dummy //DUP record is printed on the principal 
printer following the printing of the *DWADR control 
record and the DUP exit message. 

The format of DWADR control record is as follows. 



Card 






Column 


Contents 


Notes 


1-6 


♦DWADR 




7-36 


Reserved 




37-40 


Cartridge ID 


This ID specifies the cartridge on 
which the Working Storage sector 
addresses are to be rewritten. 


41-80 


Not used 
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ASSEMBLER 



The basic language for the Assembler in the Monitor 
system is described in the publication IBM 1130 Assem- 
bler Language ( Form C26-5927). Therefore, this sec- 
tion contains only a general description of the Assem- 
bler program and its operation. Assembler control 
records are described in the section Assembler Control 
Records; Assembler messages, error messages, and 
error detection codes are listed in Appendix A. 

The 1130 Monitor Assembler cannot be operated 
independently of the Monitor system; however, the 
Assembler can be deleted from the Monitor system if 
desired (see *DE FINE under PUP Control Records) . 

An ASM Monitor control record is used to call the 
Assembler into operation. The Assembler reads the 
source program, including control records, from the 
principal input device. After assembly, the object 
program resides in System Working Storage. The 
object program can now be (1) called for execution 
with an XEQ Monitor control record, (2) stored in the 
User /Fixed Area with a STORE or STORECI operation 
(see PUP Control Records) , or (3) punched as a binary 
deck or tape with a DUMP operation (see PUP Control 
Records) . 

If symbol table overflow exceeds the number of 
sectors allocated for overflow by the OVERFLOW 
SECTORS control record (a maximum of 32 sectors is 
allowed), an Assembler error message is printed. 
The approximate maximum size of the symbol table 
(including overflow) and, hence, the maximum number 
of symbols that can be defined in a program, is deter- 
mined by the size of core storage as indicated below: 

Size of Core Storage (Words) 4096 8192 16384 32768 
Symbol Table Size 3500 4865 7595 13055 



CARP OPERATION 

The source deck (including Assembler control cards) 
can be assembled either as part of a job or as a separate 
job. In either case, the source deck must be preceded 
by an ASM Monitor control record. 



The assembly of a program may start in one-pass 
mode and then change to two-pass mode. This condi- 
tion occurs when me intermediate output of pass 1 
exceeds the capacity of Working Storage less the 
number of overflow sectors specified. The system 
WAITs at the preoperative error trap ($PRET).with 
/100E (1442 input) or /400E (2501 input) displayed in 
the Accumulator (see Assembler error messages, 
Appendix A). If this assembly is part of a stacked 
job, operator intervention is necessary to prevent the 
Assembler from reading the Monitor control card fol- 
lowing the END card of the source deck. Remove the 
stacked input behind the END card and press PROGRAM 
START. The assembly will continue in two-pass mode. 

Two-Pass Mode 

In some cases it may be known in advance that it is 
necessary to assemble in two-pass mode, that is, pass 
the source deck through the 1442 Card Read Punch or 
the 2501 Card Reader twice. If a copy of the source 
deck, including all Assembler control records, is 
placed behind the original, the source deck will be read 
twice, and a stacked job is again possible even when in 
two-pass mode. Two-pass mode is not allowed with 
1134 or Keyboard input. 

It is important to note that when a deck is being 
assembled in two-pass mode, the Assembler is ready 
to read another card as soon as pass 1 processing of the 
END card is completed. Therefore, a Monitor control 
record must not follow the END card the first time (or 
the first END card if the deck has been copied), or the 
Assembler will trap this record and execute a CALL 
EXIT. 

If the deck has not been copied, the END card should 
be the last card in the hopper. Press reader START to 
process the last card and complete pass 1. The Assem- 
bler will then try to read cards for pass 2; therefore, 
the source deck (with its_ control cards) should be re- 
moved from the stacker and placed in the hopper. Press 
reader START to begin pass 2 of the assembly. Opera- 
tion is continuous if the source deck is taken from the 
stacker during pass 1 and placed in the hopper behind 
the END card. If the END card is the last card in the 
hopper, press reader START to complete the assembly. 



One-Pass Mode 



Punch Symbol Table Option 



In most cases, the source deck is passed through the 
1442 Card Read Punch or 2501 Card Reader only once. 
If the assembly is part of a stacked job, the assembly 
proceeds without operator intervention. If the END 
card of the source deck is the last card in the hopper, 
press reader START when the reader goes not-ready. 



If the *PUNCH SYMBOL TABLE Assembler control 
card is used and the principal input device is the 1442 
Card Read Punch, sufficient blank cards must be 
placed after the END card and before the next Monitor 
control record in the stacked job input. (If a non-blank 
card is read when punching on the 1442-6, 7 the 
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Assembler will WAIT at the preoperative error trap 
($PRET) with /l OOF displayed in the accumulator). In 
estimating the number of blank cards required, allow 
one card for each symbol used in the source deck. 
Unnecessary blank cards will be passed until the next 
Monitor control record is read. 

If the system configuration is 2501/1442, place 
blank cards in the 1442 hopper and press 1442 START 
before beginning the assembly. 

Note: Do not place non- blank cards in the 1442-5. The 
punch may be damaged if an attempt is made to punch 
a hole where a hole exists. No error is detected. 



KEYBOARD/PAPER TAPE OPERATION 

Most of the procedures for card input are also applicable 
to keyboard/paper tape input. The LIST DECK, LIST 
DECK E, PUNCH SYMBOL TABLE, and TWO PASS 
MODE options are not allowed with keyboard/paper tape 
input. 



ORIGIN OF MAINLINES 

The origin of a relocatable program is always set at 
zero unless otherwise specified in the source program. 

The origin of an absolute mainline program, if not 
otherwise specified in an ORG statement, is set to the 
end of DISKN plus 30 (the core image header record is 
30 words long). 

If the program requires DISKZ, DISK1, or DISKN, 
the origin may be set to the end of the requested disk 
I/O subroutine plus 30. 

If no disk I/O subroutine is used by the program, 
the origin may be set as low as the end of DISKZ plus 30. 

Note that if DISKZ is in core during execution (re- 
quired or not), the ORG statement for the program being 
executed must specify an even core address greater 
than or equal to the end of DISKZ plus 30. An ORG to 
the end of DISKZ plus 30, followed by a BSS or a BES 
of an odd number of locations is not allowed. This 
sequence has the same effect as an ORG to an odd 
location. 



Note: The paper tape input to the Assembler is punched 
in PTTC/8 code, one frame per character. The format 
of the keyboard/paper tape control records is the same 
as the card format. The format of the symbolic pro- 
gram keyboard/paper tape records is the same as card 
format except for the following: 



ASSEMBLER CONTROL RECORDS 

Assembler control records are used to specify options 
affecting an assembly and its output. These control 
records must precede the source program and can be 
in any order (see Figure 6). Assembler control records 



The record does not contain leading blanks corre- 
sponding to card columns 1-20. 



• The record does not contain blanks or data corre- 
sponding to card columns 72-80. 

• Trailing blanks need not be used. Therefore, up to 
51 characters (corresponding to card columns 21-71) 
can appear in the record. 

The assembly is continuous, and at the end of the 
assembly control is returned to the Supervisor, which 
will then pass any delete codes between the Assembler 
and the next Monitor control record. The assembler 
will also pass any codes that may occur between paper 
tape records of the source program. 

The first record processed by the Assembler is 
checked for an asterisk in column one. If an asterisk 
is present in column one, this record is treated as an 
Assembler control record. This procedure continues 
until the first non-asterisk character is detected in 
column one. For this record, and all records follow- 
ing (up to and including the END statement), column 
one is treated as if it were column twenty- one; there- 
fore, the first non-control record should not be an * 
comments record. 




. Next 
Monitor 
Control 
Record 



Assembler Source 
Statements 



Assembler Control Records 



Figure 6. Layout of an Assembler Input Deck 
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can be entered in card or paper tape form along with the 
source program deck or tape or, unless otherwise 
noted, may be entered from the Keyboard along with the 
source statements (see // TYP under Monitor Control 
Records). 

All Assembler control records have the following 
format: 

Column 1: * (asterisk) 
2-71: Option 

If an Assembler control record contains an asterisk in 
column 1, but the option does not agree, character for 
character, with its valid format, as described below, 
the asterisk is replaced by a minus sign on the control 
record listing. The erroneous control record is ignored 
and no other error occurs. 

Assembler control records can be written in free 
form; that is, any number of blanks may occur between 
the characters of the option. However, only one blank 
must separate the last character in the option, and the 
first character of any required numeric field. Remarks 
may be included in the control record following the 
option or numeric field; however, at least one blank 
must separate the last character of the option or numeric 
field and the remarks. 



*TWO PASS MODE 

This control record causes the Assembler to read the 
source deck twice. TWO PASS MODE must be specified 
when: 

• The user desires a list deck to be punched on the 
1442 Card Read Punch, model 6 or 7 (see LIST DECK 
and LIST DECK E). 

• One-pass operation cannot be performed because the 
intermediate output (source records) exceeds the 
capacity of Working Storage. 

This control record is ignored if source statements are 
entered from the Keyboard or the 1134 Paper Tape 
Reader. 

The format of the TWO PASS MODE control record 
is as follows. 



Card 
Column 


Contents 


Notes 


1 

2-71 

72-80 


TWO PASS MODE 
Not used 


Asterisk 



♦LIST 

This control record causes the Assembler to provide a 
printed listing on the principal print device (1403 
Printer, 1132 Printer, or Console Printer). The format 
of the printed listing corresponds to that of the list 
deck (see Figure 7). If the LIST control record is not 
used, only those statements in which assembly errors 
are detected will be listed. All BSS, BES, ORG, and 
EQU statements in which errors are detected will be 
unconditionally listed in Pass 1 of the assembly. 

A sample program listing appears in Appendix J. 

The format of the LIST control record is as follows. 



Card 
Column 


Contents 


Notes 


1 

2-71 

72-80 


* 

UST 
Not used 


Asterisk 



*LIST DECK 

This control record causes the Assembler to punch a 
list deck if the principal I/O device is a 1442 model 6 or 
7 Card Read Punch. This option requires two passes 
of the source deck (TWO PASS MODE). The list deck 
format is shown in Figure 7. Object information is 
punched into columns 1-19 of the source deck during 
pass 2. 

This control record is ignored if entered from the 
2501 Card Reader, the 1134 Paper Tape Reader, or the 
Keyboard. 

The format of the LIST DECK control record is as 
follows. 



Card 
Column 


Contents 


Notes 


1 

2-71 

72-80 


* 

UST DECK 

Not used 


Asterisk 



♦LIST DECK E 

This control record causes the Assembler to punch 
assembly error codes only (columns 18-19) in the list 
deck output (see LIST DECK). The principal I/O device 
must be a 1442 model 6 or 7 Card Read Punch. The 
Assembler error detection codes are listed in 
Appendix A. 

This control record is ignored if entered from the 
2501 Card Reader, the 1134 Paper Tape Reader, or 
the Keyboard. 
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Address of the 
Instruction; 
Address 
Assigned to 
the Label, if any 



Relocation Indicators; 
Col . 7 is Blank for One- 
Word Instructions or DC 
or 
Exponent for an 
XFLC Statement . 



Second Word of 

the Assembled 

Code* 



* Card 
4 ' - Column 
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I I I M I I I I I I I I U I I I I I 1 I I I I 



71 



72 



73 



80 



Card 
Column 



— V — 

Operands 



*For EBC statements, columns 9-12 contain the number of EBC characters. 
For BSS and BES statements, columns 9-12 contain the number of words reserved for the block. 
For ENT, ILS, and ISS statements, columns 9-16 contain the entry label in packed EBCDIC code. 

Figure 7. list Deck Format 



Blank 



ID and Sequence 
Number, if any 



The format of the LIST DECK E control record is as 
follows: 



Card 
Column 


Contents 


Notes 


1 

2-71 

72-80 


* 

LIST DECK E 
Not used 


Asterisk 



*PRINT SYMBOL TABLE 

This control record causes the Assembler to provide a 
printed listing of the symbol table on the principal print 
device. Symbols are grouped five per line. Multiply- 
defined symbols are preceded by the letter M; symbols 
with absolute values in a relocatable program are pre- 
ceded by the letter A. The M and A flags, however, 
are not counted as assembly errors. 

The format of the PRINT SYMBOL TABLE control 
record is as follows. 



Card 
Column 


Contents 


Notes 


1 
2-71 

72-80 


* 

PRINT SYMBOL 

TABLE 
Not used 


Asterisk 



♦PUNCH SYMBOL TABLE 

This control record causes the Assembler to punch the 
symbol table as a series of EQU source cards. Each 
source card contains one symbol. These cards can be 
used as source input to the System Symbol Table when 
the SAVE SYMBOL TABLE control record is used with 
an assembly in which they are included: 

This control record is ignored if entered from the 
1134 Paper Tape Reader or the Keyboard. 

The format of the PUNCH SYMBOL TABLE control 
record is as follows. 



Card 
Column 


Contents 


Notes 


1 
2-71 

72-80 


* 

PUNCH SYMBOL 

TABLE 
Not used 


Asterisk 
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*SAVE SYMBOL TABLE 

This control record causes the Assembler to save the 
symbol table generated in this assembly on the disk as a 
System Symbol Table. This System Symbol Table is 
saved until the next assembly containing a SAVE 
SYMBOL TABLE control record causes a new assembly- 
generated symbol table to replace it. This control rec- 
ord is also used with the SYSTEM SYMBOL TABLE con- 
trol record to add symbols to the System Symbol Table. 
The SAVE SYMBOL TABLE option requires that this 
assembly be absolute. If any assembly errors are de- 
tected, or if the symbol table exceeds 100 symbols, the 
symbol table is not saved as a System Symbol Table, 
and an assembly error message is printed (see Assem- 
bler Error Messages, Appendix A). 

The format of the SAVE SYMBOL TABLE control 
record is as follows. 



than one interrupt level (for example, the 1442 Card 
Read Punch), one LEVEL control record is required for 
each interrupt level on which the device operates. At 
least one blank must separate the word LEVEL and the 
interrupt level number. 

If a LEVEL control record is not used when assem- 
bling an ISS subroutine, an Error Message is printed at 
the end of the assembly (see Assembler Error Messages, 
Appendix A) . 

The format of the LEVEL control record is as 
follows. 



Card 
Column 


Contents 


Notes 


1 

2-71 

72-80 


* 

LEVELbn 
Not used 


Asterisk 

n is an interrupt level number 



Card 
Column 


Contents 


Notes 


1 
2-71 

72-80 


* 

SAVE SYMBOL 

TABLE 
Not used 


Asterisk 



*SYSTEM SYMBOL TABLE 

This control record causes the Assembler to add the 
System Symbol Table (previously built by a SAVE 
SYMBOL TABLE assembly) to the symbol table for 
this assembly as the assembly begins. This control 
record is used when it is desired to refer to symbols 
in the System Symbol Table without redefining those 
symbols in the source program, or it is used together 
with the SAVE SYMBOL TABLE control record when it 
is desired to add symbols to the System Symbol Table. 
All symbols in the System Symbol Table have absolute 
values. 

The format of the SYSTEM SYMBOL TABLE control 
record is as follows. 



Card 
Column 


Contents 


Notes 


1 
2-71 

72-80 


* 

SYSTEM SYMBOL 

TABLE 
Not used 


Asterisk 



*LEVEL 

This control record specifies the interrupt levels 
serviced by an ISS and, hence, the associated ILS sub- 
routines. It is required for the assembly of an ISS sub- 
routine. The interrupt level number is a decimal num- 
ber in the range 0-5. If the device operates on more 



*OVERFLOW SECTORS 

This control record specifies the number of sectors of 
Working Storage to be used by the Assembler for sym- 
bol table overflow. The number of overflow sectors (nn) 
is a decimal number between 1 and 32. If the entry is 
zero or blank, no overflow sectors are allowed. If the 
entry is greater than 32, only 32 overflow sectors are 
allowed. If this control record is not used, no overflow 
sectors are allowed; if it is used, the Assembler act- 
ually allocates one more sector than the number speci- 
fied. This additional sector is used as a working sector 
when the Assembler is handling symbol table overflow. 

The format of the OVERFLOW SECTORS control 
record is as follows. 



Card 
Column 


Contents 


Notes 


1 
2-71 

72-80 


* 

OVERFLOW 

SECTORSbnn 
Not used 


Asterisk 

nn is the number of sectors assigned 

to symbol table overflow. 



^COMMON 

This control record specifies the length (in words) of 
COMMON as defined by a FORTRAN core load that is 
to be executed prior to the execution of the program 
being assembled. Use of this control record provides 
for a COMMON area to be saved in linking between 
FORTRAN mainlines and Assembler mainlines. At 
least one blank must separate the word COMMON and 
the decimal number. 

The format of the COMMON control record is as 
follows. 



Card 






Column 


Contents 


Notes 


1 


* 


Asterisk 


2-71 


COMMONbnnimn 


TiTmnn is the number of words of 
COMMON (decimal) to be saved 
between links. 


72-80 


Not used 
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FORTRAN COMPILER 



The basic language for the FORTRAN Compiler in the 
Monitor system is described in the publication IBM 
1130/1800 Basic FORTRAN fV Language (Form C26- 
3715); therefore, this section contains only a general 
description of the Compiler and its operation. The 
FORTRAN Compiler control records are described in 
the section FORTRAN Control Records; FORTRAN 
messages and error messages are listed in Appendix A. 

The FORTRAN Compiler cannot be operated inde- 
pendently of the Monitor system; however, it can be 
deleted from the Monitor system if desired (see 
♦DEFINE under PUP Control Records) . 

A FOR Monitor control record is used to call the 
FORTRAN Compiler into operation. The Compiler 
reads the source program, including control records, 
from the principal input device. After compilation, the 
object program resides in System Working Storage and 
can be (1) called for execution with an XEQ Monitor 
control record, (2) stored in the User/Fixed Area with 
a STORE or STORECI operation (see PUP Control 
Records) , or (3) punched as a binary deck or tape with 
a PUMP operation (see PUP Control Records ). 

The 1130 FORTRAN I/O logical unit numbers and 
record sizes are listed in Table 3. 



//b RECORDS REAP DURING THE EXECUTION OF 
A FORTRAN PROGRAM 

During the execution of a FORTRAN program, any //b 
record encountered by CARDZ, READZ, or PAPTZ will 
cause an immediate CALL EXIT. The Supervisor will 
then search for the next valid Monitor control record 
entered from the reader. Only the //b characters on 
the record trapped by CARDZ, READZ, or PAPTZ are 
recognized. Any other data entered in this record is 
not available to programs in the Monitor system. The 
record is not listed. For off-line listing purposes, 
however, this record can contain comments (e.g. , 
// END OF DATA). 



FORTRAN CONTROL RECORDS 

Before a FORTRAN program is compiled, the user can 
specify certain options affecting both the compilation 
and execution of the program by means of control rec- 
ords. These control records must precede the source 
program and can be in any order (see Figure 8). 

FORTRAN control records can be entered in card 
or paper tape form along with the source program deck 
or tape, or they may be entered from the Keyboard 
along with the source statements (see // TYP under 



Monitor Control Records). The IOCS and NAME con- 
trol records can be used only in mainline programs; the 
others can be used in both mainline programs and sub- 
programs. 

All FORTRAN control records have the following 
format: 

Column 1: ^(asterisk) 
2-72: Option 



Table 3. 



FORTRAN I/O Logical Unit Designations and 
Record Sizes 



Logical 

Unit 
Number 


Device 


Kind of 
Transmission 


Record Size 
Allowed 


1 


Console Printer 


Output only 


120 


2 


1442 Card Read 
Punch 


Input/output 


80 


3 


1132 Printer 


Output only 


1 carriage 
control + 120 


4 


1134/1055 
Paper Tape 
Reader Punch 


Input/output 


80, plus max. of 
80 case shifts for 
PTTC/8 code, 
plus NL code. 


5 


1403 Printer 


Output only 


1 carriage 
control + 120 


6 


Keyboard 


Input only 


80 


7 


1627 Plotter 


Output only 


120 


8 


2501 Card Reader 


Input only 


80 


9 


1442 Card Punch 


Output only 


80 


10 


UDISK 


Unformatted 
input/output 
without data 
conversion 


320* 



Unformatted disk I/O comprises 320 word records (including a two-word 
header). The first word of the header must contain the count of the phys- 
ical record within the logical record (see example following). The second 
word of the header must contain the number of effective words in the in- 
dividual physical record. The second word of the header of the last phys- 
ical record within a logical record must have the sign bit (-) on. Unform- 
atted disk characters are stored in as they appear in core storage. 



Example: 

DIMENSION A (400) 
WRITE (10) A 



800 words 



Physical records (maximum record 
length 320 words due to disk sector size) 



Logical record 
(total number of 
words to be written) 



1 


318 


DATA WORDS 



2 


318 


DATA WORDS 



3 


-164 


DATA WORDS 



z 



164 and sign bit (/80A4). Not/FF5C. 



An end-of-file record occupies one sector. Word one of the header must 
be 1 and word two must be a negative zero (/8000). 
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Name 



Device 



Next Monitor 
Control Record 



FORTRAN Source 
Statements 



FORTRAN Control Records 



Figure 8. Layout of a FORTRAN Compiler Input Deck 

If a FORTRAN control record contains an asterisk in 
column 1, but the option does not agree, character for 
character, with its valid format, as described below, 
the asterisk is replaced by a minus sign on the control 
record listing. The erroneous control record is ignored 
in the compilation and the option is not performed; how- 
ever, no error results. 

FORTRAN control records can be written in free 
form; that is, any number of blanks may occur between 
the characters of the option. No remarks are allowed. 



*IOCS(. ..) 

This control record is required to specify any I/O de- 
vice that is to be used during execution of the program; 
however, only the devices required should be included. 
Because the IOCS control record may appear only in the 
mainline program, it must include all the I/O devices 
used by all FORTRAN subprograms that are called. 
The device names must be in parentheses with a comma 
between each name. The valid names and the devices 
to which they correspond are listed below: 



Name Device 

CARD 1442 Card Read Punch, Model 6 or 7 

2501 READER 2501 Card Reader 

1442 PUNCH 1442 Card Punch, Model 5 (1442 

Model 6 or 7 if used as a punch only) 

TYPEWRITER Console Printer 

KEYBOARD Keyboard 

1132 PRINTER 1132 Printer 

1403 PRINTER 1403 Printer 

PAPER TAPE 1134/1055 Paper Tape Reader/Punch 



PLOTTER 1627 Plotter 

DISK Disk 

UDISK Disk (unformatted disk I/O) 

Note that CARD is used for the 1442 Card Read Punch, 
Model 6 or 7 and that 1442 PUNCH is used for the 1442 
Card Punch, Model 5 (1442 PUNCH may be used with a 
1442 Model 6 or 7 if the function is punch only; 1442 
PUNCH uses less core). These two names are mutually 
exclusive; therefore, the use of both the CARD and 1442 
PUNCH IOCS Control Records in the same compilation is 
not allowed. 

Subprograms that are a part of a FORTRAN core load 
but are written in Assembler language can use any I/O 
subroutines for any device that is not specified on the 
IOCS control record. Otherwise they must use the same 
I/O subroutine as the FORTRAN subprogram. 

Any number of IOCS control records can be used to 
specify the required device names. 

The format of the IOCS control record is as follows. 



Card 
Column 


Contents 


Notes 


1 
2-72 

73-80 


* 

IOCS 

(d,d,...,d) 

Not used 


Asterisk 

d is a valid device name selected 

from the above list. 



*LIST SOURCE PROGRAM 

This control record causes the Compiler to list the 
source program on the principal print device as it is 
read in. 

The format of the LIST SOURCE PROGRAM control 
record is as follows: 



Card 
Column 


Contents 


Notes 


1 
2-72 

73-80 


* 

LIST SOURCE 

PROGRAM 
Not used 


Asterisk 



*LIST SUBPROGRAM NAMES 

This control record causes the Compiler to list on the 
principal print device the names of all subprograms 
(including EXTERNAL subprograms) called directly by 
the compiled program. 

The format of the LIST SUBPROGRAM NAMES con- 
trol record is as follows. 



Card 
Column 


Contents 


Notes 


1 
2-72 

73-80 


* 

LIST 

SUBPROGRAM 

NAMES 
Not used 


Asterisk 
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♦LIST SYMBOL TABLE 



*ONE WORD INTEGERS 



This control record causes the Compiler to list the fol- 
lowing items on the principal print device: 

• Variable names and their relative addresses 

• Statement numbers and their relative addresses 

• Statement function names and their relative 
addresses 

• Constants and their relative addresses 

The format of the LIST SYMBOL TABLE control 
record is as follows. 



Card 
Column 


Contents 


Notes 


1 
2-72 

73-80 


* 

UST SYMBOL 

TABLE 
Not used 


Asterisk 



*LIST ALL 

This control record causes the Compiler to list the 
source program, subprogram names, and the symbol 
table on the principal print device. If this control 
record is used, the other LIST control records are not 
required. 

The format of the LIST ALL control record is as 
follows. 



Card 
Column 


Contents 


Notes 


1 

2-72 
73-80 


* 

UST ALL 

Not used 


Asterisk 



♦EXTENDED PRECISION 

This control record causes the Compiler to store var- 
iables and real constants in three words instead of two 
and to generate linkage to extended precision subpro- 
grams. 

The format of the EXTENDED PRECISION control 
record is as follows. 



Card 
Column 


Contents 


Notes 


1 
2-72 

73-80 


* 
EXTENDED 

PRECISION 
Not used 


Asterisk 



This control record causes the Compiler to allocate one 
word of storage for integer variables rather than the 
same allocation (two or three words) used for real var- 
iables. Whether this control record is used or not, 
integer constants are always contained in one word. 
When this control record is used, the program does not 
conform to me USASI Basic FORTRAN standard for 
data storage and may require modification in order to be 
used with other FORTRAN systems. 

The format of the ONE WORD INTEGERS control 
record is as follows. 



Card 
Column 


Contents 


Notes 


1 
2-72 

73-80 


* 

ONE WORD 
INTEGERS 
Not used 


Asterisk 



*NAME 

This control record causes the Compiler to print the 
specified program name at the end of the listing. The 
name is five consecutive characters (including blanks) 
starting at the first non-blank column following NAME. 
At least one blank must separate the word NAME and 
the mainline program name. 

The format of the NAME control record is as 
follows. 



Card 
Column 


Contents 


Notes 


1 
2-72 

73-80 


* 
NAMEbxxxxx 

Not used 


Asterisk 

xxxxx is the name of the mainline 

object program. 



**(Header Information) 

This column record causes the Compiler to print the 
information in columns 3-72 at the top of each page of 
compilation printout when a 1403 Printer or 1132 
Printer is the principal print device. It initially causes 
a skip to channel 1 when the first statement of the pro- 
gram is read. 

The format of the header control record is as 
follows. 



Card 
Column 


Contents 


Notes 


1 
2 

3-72 

73-80 


* 

Any string of 

characters 
Not used 


Asterisk 
Asterisk 
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♦ARITHMETIC TRACE 

This control record causes the Compiler to generate 
linkage to the trace subprograms, which are executed 
whenever a value is assigned to a variable on the left of 
an equal sign. If console entry switch 15 is on during 
execution and program logic (see Optional Tracing) does 
not prevent tracing, the value of the assigned variable is 
printed as it is calculated. 

If tracing is requested, an IOCS control record must 
also be present to indicate that either the typewriter 
(that is, the Console Printer), 1132 Printer, or 1403 
Printer is needed. If more than one print device is 
specified in the IOCS control record, the fastest device 
is used for tracing. 

The traced value for a variable to the left of an equal 
sign of an arithmetic statement is printed with one 
leading asterisk. 

The format of the ARITHMETIC TRACE control rec- 
ord is as follows. 



Card 
Column. 


Contents 


Notes 


1 

2-72 

73-80 


* 

TRANSFER TRACE 
Not used 


Asterisk 



Card 
Column 


Contents 


Notes 


1 
2-72 

73-80 


* 

ARITHMETIC 

TRACE 
Not used 


Asterisk 



♦TRANSFER TRACE 

This control record causes the Compiler to generate 
linkage to the trace subprograms, which are executed 
whenever an IF statement or computed GO TO statement 
is encountered. If console entry switch 15 is on during 
execution and program logic (see Optional Tracing ) does 
not prevent tracing, the value of the IF expression or 
the value of the computed GO TO index is printed. 

If tracing is requested, an IOCS control record must 
also be present to indicate that either the typewriter 
(that is, the Console Printer), 1132 Printer, or 1403 
Printer is needed. If more than one print device is 
specified in the IOCS control record, the fastest device 
is used for tracing. 

The traced value for the expression in an IF state- 
ment is printed with two leading asterisks. The traced 
value for the index of a computed GO TO statement is 
printed with three leading asterisks. 

The format of the TRANSFER TRACE control records 
is as follows. 



Optional Tracing 

The user can elect to trace only selected parts of the 
program by placing statements in the source program 
logic flow to start and stop tracing. This is done by 
executing a CALL TSTOP to stop tracing or a CALL 
TSTRT to start tracing. Thus, tracing occurs only if: 

• Console entry switch 15 is on (can be turned off at 
any time) 

• The trace control records were compiled with the 
source program 

• A CALL TSTOP has not been executed, or a CALL 
TSTRT has been executed since the last CALL 
TSTOP. 

Operating Notes 

A constant in a STOP or PAUSE statement is treated as 
a hexadecimal number. This hexadecimal number and 
its decimal equivalent appear in the list of constants. 
The hexadecimal number is also displayed in the accu- 
mulator when the system waits at $PRET during the 
execution of thie PAUSE or STOP statement. 

Variables and constants that require more than one 
word of storage have the address of the word nearest the 
zero address of the machine. In the case of arrays, the 
given address refers to the addressed word of the first 
element. In the case of a two- or three-word integer, 
the integer value is contained in the addressed word. 
The first variable listed might not be addressed at 0000 
because space may be required for generated temporary 
storage locations* 

The relative address for variables not in COMMON 
would be the actual address if the program started at 
storage location zero. The relative address for vari- 
ables in COMMON would be the actual address if the ma- 
chine had 32K storage. Variables in COMMON reside in 
the high-order core location of the machine being used 
(e. g. , first COMMON variable will be loaded to /1FFF 
on an 8K machine). 

Any of the three versions of the disk I/O subroutines 
may be used with a FORTRAN core load. However, 
under normal circumstances no advantage in speed may 
be gained, because the FORTRAN disk formatting sub- 
routine operates with one sector at a time. SOCALs 
may operate faster if DISKN is used. 
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KEYBOARD INPUT OF DATA RECORDS 

Data records of up to 80 characters can be read 
from the keyboard by a FORTRAN READ state- 
ment. Data values must be right -justified in their 
respective fields. 

Keyboard Operation 

If it is desirable to key in less than 80 characters, 
Ihe EOF key can be pressed to stop transmittal. 
Also, the ERASE FIELD or BACKSPACE key can be 
pressed to restart the record transmittal if an error 
is detected while entering data. If the keyboard 
appears to be locked up, press REST KB to restore 
the keyboard. The correct case shift must be se- 
lected before data is entered. 



Buffer Status After Keyboard Input 

When the END FLD key is pressed prior to com- 
pleting a full buffer load of 80 characters, blanks 
are inserted in the remainder of the buffer. If more 
data is necessary to satisfay the list items , the re- 
maining numeric fields (I, E, or F) are stored in 
core as zeros and remaining alphameric fields 
(A or H) are stored as blanks. Processing is con- 
tinuous and no errors result from the above condi- 
tion. 



OBJECT PROGRAM PAPER 
TAPE DATA RECORD FORMAT 

Data records of up to 80 EBCDIC characters in 
PTTC/8 code can be read or written by the FOR- 
TRAN object programs. The delete and new-line 
codes are recognized. Delete codes and case shifts 
are not included in the count of characters. If a 
new-line code is enountered before the 80th char- 
acter is read, the record is terminated. If the 80th 
character is not a new -line code, the 81st character 
is read and assumed to be a new-line code. A new- 
line code is punched at the end of each output record. 



FORTRAN I/O ERRORS 

If input/output errors are detected during execution, 
the program stops and cannot be contined. The 
error is indicated by a display in the accumulator. 
The error displays and meanings are listed in 
Appendix A, Table 12. 

When the output field is too small to contain 
the number, the field is filled with asterisks and 
execution is continued. 



The input/output routines used by FORTRAN 
(PAPTZ, CARDZ, PRNTZ, WRTYZ, TYPEZ, PNCHZ, 
READZ, PRNZ) wait on any I/O device error or device 
not in a ready condition. When the devices are ready, 
press PROGRAM START to execute the I/O operation. 

Error detection in functional and arithmetic sub- 
routines is possible by the use of source program state- 
ments. Refer to "FORTRAN Machine and Program 
Indicator Tests" in the manual, IBM 1130/1800 
Basic FORTRAN IV Language (Form C26-3715). 



CORE LOAD BUILDER 



The Core Load Builder builds a specified mainline pro- 
gram into a core image program. The mainline pro- 
gram, with its required programs (LOCALS and SOCALs 
included), is converted from Disk System format to 
Disk Core Image format. During the conversion, the 
Core Load Builder also builds the Core Image Header 
record and the Transfer Vector. The resultant core 
image program is suitable for immediate execution or 
for storing on the disk in Disk Core Image format for 
future execution. The Core Load Builder can build a 
core load that references up to approximately 150 dif- 
ferent LIBF and CALL entry points, e. g. , 80 LIBFs 
plus 70 CALLs (the maximum number of LIBFs allowable 
is 83 due to the size of the LIBF Transfer Vector). 
The Core Load Builder is called by: 

• The Supervisor. After the Supervisor has detected 
the XEQ Monitor control record in the input stream 
and has read the Supervisor control records, if 
any, and written them in the Supervisor Control 
Record Area (SCRA) on disk, the Supervisor dum- 
mys up a CALL LINK to the program specified on 
the XEQ record unless the program resides in 
Working Storage, in which case the Supervisor 
calls the Core Load Builder directly. The Core 
Load Builder then builds the core load and returns 
control to the Core Image Loader to fetch the core 
load and transfer control to it. 

• PUP. After DUP has detected the STORECI control 
record, it reads the Supervisor control records, if 
any, and writes them in the Supervisor Control 
Record Area (SCRA) on disk. Unless the program 
is already in Working Storage, DUP fetches the 
program, converts it to Disk System format, if 
necessary, and stores it in Working Storage. Next, 
the Core Load Builder is fetched to construct the 
core image program (see Core Load Construction ). 
After the core image program has been built, the 
Core Load Builder returns control to DUP to store 
the core image program in the User or Fixed Area. 
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• The Core Image Loader. When the Resident Moni- 
tor is entered at the LINK entry point, the Core 
Image Loader is called to transfer control to the 
next link. The Core Image Loader determines the 
format of the link from the LET/FLET entry and, 
if the program to be executed is in Disk System 
format, calls the Core Load Builder to construct 
the core image program (see Core Load Construc- 
tion) . After the core image program has been built, 
the Core Load Builder returns control to the Core 
Image Loader to fetch the core load and transfer con- 
trol to it. 

CORE LOAD CONSTRUCTION 

The following paragraphs describe the functions of the 
Core Load Builder during the construction of a core 
image program. These functions are not necessarily 
performed in the order in which they appear. 

Figure 9 shows a core image program being built. 
Figure 5 (see *STORECI under PUP Control Records) 
shows a core image program stored on disk. Figure 11 
(see Fetching a Link under Core Image Loader ) shows a 
core load ready for execution. 

Processing the Contents of the SCRA 

The LOCAL, NOCAL, and FILES control records are 
read from the Supervisor Control Record Area (SCRA) 
on disk and analyzed. Tables are built from the infor- 
mation obtained from the respective control record 
types. These tables are used in later phases of the 
construction of the core image program. 

Conversion of the Mainline Program 

The mainline program is converted from Disk System 
format to Disk Core Image format. The mainline is 
always converted before any other part of the core 
load. 



Working Storage Files 

Defined in the 

Core Load 



LOCALs 



SOCALs 




That Part of the Core 
Load Below 4096 

A 



Working Storage 



Not Used 

_A__ 



Saved COMMON 



y 

Core Image Buffer 



Resident 
Monitor 



Core Load Builder 



That Part of the Core Load Above 4095 
_A 



Location 
0000 

V 



End of DISKZ 



Location 
4096 



End 

of 

Core 



Y 

Core Storage 

Figure 9. Distribution of a Core Image Program being Built 



Incorporation of Subprograms 

All the subprograms called by the mainline program and 
by other subprograms are included in the core load, ex- 
cept for (1) the disk I/O subroutine, (2) any LOCAL sub- 
programs specified, and (3) SOCALs (see System Over- 
lays) . 

If LOCALs have been specified or if SOCALs are em- 
ployed by the Core Load Builder, the LOCAL/SOCAL 
flipper (FLIPR) is included in the core load. The order 
of conversion is generally NOCALs, followed by the sub- 
programs in the order they are called. The order of 
processing when either LOCALs or SOCALs are included 
is more complicated and will not be discussed here. 



Provision for LOCALs and SOCALs 

If LOCALs have been specified, a LOCAL Area as large 
as the largest LOCAL is reserved in the core load, into 
which the LOCAL subprograms are read by the LOCAL/ 
SOCAL flipper. In addition, the subprograms specified 
on the LOCAL control records are written in Working 
Storage following any files defined in Working Storage. 
If the core load is executed immediately, each LOCAL is 
read, as it is called, from Working Storage into the 
LOCAL Area by the LOCAL/SOCAL flipper. If the core 
load is stored in Disk Core Image format before it is 
executed, the LOCALs are stored following the core 
load. During execution, the LOCAL/SOCAL flipper 
fetches them from the User/Fixed Area. 

If SOCALs are employed by the Core Load Builder, a 
SOCAL Area as large as the largest SOCAL (usually 
SOCAL 2) is reserved in the core load, into which the 
SOCALs are read by the LOCAL/SOCAL flipper. In ad- 
dition, the subprograms comprising the SOCALs are 
written in Working Storage following any files defined in 
Working Storage and any LOCALs stored there. If the 
core load is executed immediately, each SOCAL is read 
from Working Storage into the SOCAL Area by the 
LOCAL/SOCAL flipper as it is called. If the core load 
is stored in Disk Core Image format before it is execu- 
ted, the SOCALs are stored following the core load and 
the LOCALs, if any. During execution, the LOCAL/ 
SOCAL flipper fetches the SOCALs from the User/ 
Fixed Area. 



Construction of the Core Image Header 

During the construction of the Core Image program, the 
Core Load Builder also constructs the Core Image 
Header, which contains the information required by the 
Core Image Loader to initialize the core load for exe- 
cution. This header becomes a part of the core image 
program and resides in core along with the rest of the 
core load during execution. Since FORTRAN subrou- 
tines access this information during execution, the 
header is not to be considered a work area. 



Monitor Programs 45 



Processing Defined Files 

The Core Load Builder uses the information in the 
FILES control record to equate files defined in the 
mainline program (by the FORTRAN DEFINE FILE 
statement or by the Assembler FILE statement) to 
Data Files on disk. The processing consists of com- 
paring the file number in a 7 -word DEFINE FILE 
table entry with each of the file numbers from the 
FILES control records, which have been stored in the 
SCRA by the Supervisor or DUP. If a match occurs, 
the name of the disk area associated with the file num- 
ber on the FILES control record is found in LET/FLET, 
and the sector address of that disk area (including the 
logical drive code) is placed in word 5 of the DEFINE 
FILE table entry. If none of the file numbers from the 
FILES control records match the number in the 
DEFINE FILE table entry or if no name is specified on 
the FILES control record, the Core Load Builder as- 
signs an area in Working Storage for the Data File. The 
sector address of the Data File, relative to the start of 
Working Storage , is placed in word 5 of the DE FINE 
FILE table entry. This procedure is repeated for each 
7-word DEFINE FILE table entry in the mainline program. 



Use of the Core Image Buffer (CIB) and Working Storage 

The Core Load Builder places in the CIB any parts of the 
core load which, when loaded, are to reside below loca- 
tion 4096. Any parts of the core load that are to reside 
above location 4095 are placed directly into core storage. 
Enough Working Storage is reserved by the Core Load 
Builder to contain any Data Files assigned by the Core 
Load Builder to Working Storage. All the LOCAL sub- 
programs and SOCALs, respectively, are stored in 
Working Storage following any files defined there. 
Figure 9 shows the distribution of a core image program 
between core storage, the CIB, and Working Storage. 
These diagrams depict a core image program just after 
it has been built but before it has been stored (STORE CI). 

Assignment of the Core Load Origin 

The Core Load Builder origins core loads built from 
relocatable mainline programs at the next higher- 
addressed word above the end of the disk I/O subrou- 
tine to be used by the core load plus 30. 



Disk I/O 
Subroutine in Core 

DISKZ 
DISK1 
DISKN 



Core Load Origin 
Decimal Hexadecimal 



510 
690 
960 



/01FE 
/02B2 
/03C0 



The origins for core loads built from absolute main- 
line programs are not controlled by the Core Load 
Builder. Therefore, the user must origin absolute 



mainline programs at 30 or more words above the end 
of the disk I/O subroutine to be used by the core load 
(these 30 words are required for the Core Image 
Header) . 

TRANSFER VECTOR 

The Transfer Vector is a table included in each core 
load that provides the linkage to the subprograms. It is 
composed of the LIBF TV, the Transfer Vector for sub- 
programs referenced by LIBF statements, and the CALL 
TV, the Transfer Vector for subprograms referenced by 
CALL statements. 

Each CALL TV entry is a single word containing the 
absolute address of an entry point in a subprogram in- 
cluded in the core load that is referenced by a CALL 
statement. In the case of a subprogram referenced by a 
CALL statement but specified as a LOCAL, the CALL 
TV entry contains the address of the special LOCAL 
linkage instead of the subprogram entry point address. 
If SOCALs are required, the CALL TV entries for func- 
tion subprograms contain the address of the special 
SOCAL linkage instead of the subprogram entry point 
address. 

Each LIBF TV entry consists of three words. Word 1 
is the link word in which the return address is stored. 
Words 2 and 3 contain a branch to the subprogram entry 
point. In the case of a subprogram referenced by a 
LIBF statement but specified as a LOCAL, the LIBF TV 
entry for its entry point contains a branch to the special 
LOCAL linkage instead of to the subprogram entry point 
address. If SOCALs are required, the LIBF TV entry 
for a SOCAL subprogram contains a branch to a special 
entry in the LIBF TV for the SOCAL of which the sub- 
program is a part. This special entry provides the link- 
age to the desired SOCAL subprogram. 

SYSTEM OVERLAYS 

SOCALs (system-overlays-to-be-loaded-on-call) are 
subprogram groups (by type and subtype) that are made 
into overlays by the Core Load Builder. They make it 
possible for many FORTRAN core loads that would 
otherwise not fit into core to be loaded and executed. 

If, in constructing a core image program from a 
FORTRAN mainline program, the Core Load Builder 
determines that the core load will not fit into core, 
SOCALs are created by the Core Load Builder for the 
core load. In addition, the LOCAL/SOCAL flipper, 
which fetches the SOCALs when they are required during 
execution, is included in the core load along with the 
area into which the SOCALs are loaded (the SOCAL 
Area) . 

The SOCALs are created by subprogram type and 
subtype (see the description of program type and subtype 
under Disk System Format in Appendix C). The follow- 
ing table describes the SOCALs. 
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Overlay 


Subprogram Class 


Type 


Subtype 


(SOCAL Number) 


Arithmetic 


3 


2 


1 


Function 


4 


8 


1 


Non-disk FORTRAN 


3 


3 


2 


I/O and "Z" conver- 








sion subroutines 








"Z" device subroutines 


5 


3 


2 


Disk FORTRAN I/O 


3 


1 


3 



There are two SOCAL options. The Core Load 
Builder first attempts to make the core load fit into 
core by using SOCALs 1 and 2 only (option 1) . If the 
core load still will not fit into core, SOCALs 1, 2, and 
3 are used (option 2) . If the use of option 2 still does 
not make it possible for the core load to fit into core, 
an error message is printed (see Core Load Builder 
Error Messages, Appendix A). 

Option 1 reduces the core requirement of the core 
load by an amount equal to the size of the smaller of the 
two SOCALs used, minus approximately 15 additional 
words required for the special SOCAL linkage. Option 
2 reduces the core requirement by an amount equal to 
the sum of the sizes of the two smallest SOCALs minus 
approximately 20 additional words required for the 
special SOCAL linkage. SOCAL 2 is usually the largest 
SOCAL. 

Each SOCAL does not contain all the available sub- 
programs of the specified types and subtypes; only 
those subprograms of the specified types and subtypes 
required by the core load are contained in the SOCAL. 

If a subprogram that would otherwise be included in 
a SOCAL is specified as a LOCAL subprogram, that 
subprogram is made a LOCAL and is not included in the 
SOCAL in which it would ordinarily be found. 

SOCALs are never built for core loads in which the 
mainline program is written in Assembler language. 



LOCAL/SOCAL FLIPPER (FLIPR) 

The LOCAL/SOCAL flipper is included in each core 
load in which LOCAL subprograms have been specified 
and/or in which SOCALs have been employed. If exe- 
cution of the core load immediately follows the building 
of the core image program, this subroutine reads a 
LOCAL/SOCAL from Working Storage into the LOCAL/ 
SOCAL Area as it is called during execution. If the 
core image program was stored in the User or Fixed 
Area in Disk Core Image format prior to execution, the 
flipper reads each LOCAL/SOCAL as it is called during 
execution from the User or Fixed Area (where it was 
stored following the core load) into the LOCAL/SOCAL 
Area. 

The flipper is entered via the special LOCAL/SOCAL 
linkage. A check is made to determine if the required 
LOCAL/SOCAL is already in core. If it is not in core, 
the flipper reads the required LOCAL/SOCAL into the 
LOCAL/SOCAL Area, and transfers the LOCAL/SOCAL 
subprogram via the special linkage. 



CORE IMAGE LOADER 

The Core Image Loader serves both as a loader for core 
loads and as an interface for some parts of the Monitor 
system. 

On any entry to the Skeleton Supervisor, the Core 
Image Loader is fetched and control is transferred to it. 
The Core Image Loader determines where the Skeleton 
Supervisor was entered, i.e., at $EXIT, $DUMP, or 
$LINK. 

FETCHING THE SUPERVISOR 

If an entry was made to the Skeleton Supervisor at the 
$EXIT entry point, the Core Image Loader first fetches 
the disk I/O subroutine used by the Monitor programs 
(DISKZ), if it is not already in core. It then fetches and 
transfers control to the Monitor Control Record Analyzer 
to read Monitor control records from the input stream. 

If an entry was made to the Skeleton Supervisor at the 
$DUMP entry point, the Core Image Loader first saves 
words 6-4095 on the CIB and then fetches and transfers 
control to the DUMP program to perform the core dump 
according to the parameters specified. At the comple- 
tion of the dump, the DUMP program either restores 
core from the CIB and transfers control back to the core 
load, or it terminates the execution with a CALL EXIT 
(see Terminal and Dynamic Dumps under Supervisor). 

FETCHING A LINK 

If an entry was made to the Skeleton Supervisor at the 
$LINK entry point, the Core Image Loader first saves 
low COMMON (locations 1536-1855 if DISKN is in core, 
locations 1216-1535 if DISK1 is in core, or locations 
896-1215 if DISKZ is in core). It then determines from 
COMMA the lowest- addressed word of COMMON, if any, 
defined by the core load just executed. Any COMMON 
below location 4096 is saved in the CIB by the Core 
Image Loader. 

Figure 10 illustrates the scheme used in saving 
COMMON between links. 

The LET/FLET entry for the link to be fetched is 
then located, and the Core Image Loader determines 
from it whether the link is in Disk Core Image format 
or Disk System format. If the link is in Disk Core 
Image format, the Core Image Loader fetches the 
disk I/O subroutine required by the core load, if it 
is not already in core. It next restores low COMMON 
if it lies within the COMMON defined by the core load 
just executed. The core load is then fetched and con- 
trol is transferred to it. 

If the link is in Disk System format, the Core Image 
Loader calls the Core Load Builder to construct a core 
image program from the mainline program. After the 
core image program has been built, the Core Load 
Builder returns control to the Core Image Loader, which 
then fetches the core load, as described above, and 
transfers control to it. 

Figure 11 shows the layout of a core load loaded into 
core, ready for execution. 
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PROGRAMMING TIPS AND TECHNIQUES 



The information presented in this section should assist 
the user in achieving maximum utilization of the Monitor 
system. 



USING THE DISK I/O SUBROUTINES 

All core loads, whether they use disk I/O or not, require 
one of the three disk I/O subroutines. As a minimum, 
this disk subroutine is used to read the core load into 
core and execute CALL EXIT, CALL LINK, CALL 
DUMP, and/or CALL PDUMP. Generally, DISKZ is 
used by FORTRAN core loads and DISK1 or DISKN by 
Assembler-Language core loads. DISKN provides faster 
operation than DISK1 for operations involving more than 
320 words, as well as the simultaneous operation of disk 
drives. DISKZ is intended for use only in an error-free 
environment, because it does no preoperative parameter 
checking, whereas DISK1 and DISKN do. DISKZ also has 
a special calling sequence; DISK1 and DISKN have the 
LIBF calling sequence. Bear in mind that all three disk 
subroutines are assembled as mainlines and are thus 
not the same as programs stored in the System Library, 
even though DISK1 and DISKN (but not DISKZ) may be 
referenced with the LIBF statement. They are described 
with library subroutines because they are similar in 
some respects to library subroutines. Actually, they 
are neither incorporated into the core load like library 
subroutines nor are they stored in the System Library. 

A switch is set in COMMA to indicate which version 
of disk I/O is requested on the XEQ record. The set- 
ting of this switch is not altered until 1) a Monitor con- 
trol record is read or 2) a link that is stored in DCI is 
called. In the first case the switch is set to indicate 
DISKZ, unless the record was XEQ, in which case the 
switch is set to indicate whatever version is requested. 
In the second case the switch is set to indicate the ver- 
sion of disk I/O required by the link. In short, each 
DSF link except the first in an execution must utilize the 
same version of disk I/O as the preceding link. The 
first link must, of course, utilize the disk I/O specified 
on the XEQ record. 

In order to save core in Monitor programs, all of 
which utilize DISKZ, DISKZ has been pared to a mini- 
mum. The following is a list of functions that are not 
available in DISKZ but are available in DISK1 and/or 
DISKN. 

• No validity checking of the word count and sector 
address 

• No file protection 

• No LIBF type calling sequence 



• No validity checking of the function indicator 

• No write without readback check option 

• No write immediate function 

• Word count may not be on an odd boundary 

• No simultaneous disk operations 

• Does not "make" the sector gap when reading or 
writing more than 320 words 

THE USE OF SOCALs 



Restrictions 'on Subroutines in SOCALs 

A rule of prime importance regarding subroutines in the 
SOCAL scheme is that none must cut across SOCALs. 
That is, a given subroutine that is in one SOCAL may 
not call a subroutine that is in another SOCAL or cause 
another SOCAL to be brought into core before the execu- 
tion of the given subroutine is completed. This is due 
to the fact that the IBM- supplied 1130 subroutines that 
go into the SOCAL scheme are not re-enterable. It 
should also be noted that disk I/O is used every time a 
SOCAL is brought into core. This means that disk I/O 
will sometimes be entered without the user's direct 
knowledge. 



Decreasing Program Execution Time 

When writing or modifying a program that is known to 
require SOCALs, planning is required to minimize the 
flipping of the various SOCALs in and out of core during 
execution. Ideally the program should be written in 
sections, each of which employs a single SOCAL, e. g. , 
input, computation, and output. Even input and output 
should be carefully planned so as to separate disk and 
non-disk operations whenever possible. 

TIPS ON MONITOR CONTROL 

Temporary JOB Mode 

In many cases DUP delete functions must be performed 
to clear the User Area of old programs before newly 
assembled or compiled programs may be stored. The 
necessity for such deletions is avoided by using the 
temporary mode when running jobs that contain programs 
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that are likely to be replaced at a later time. In the 
Temporary mode all programs stored to the User Area 
are automatically deleted when the next JOB record is 
processed. This assures the user that his new program 
is the one stored in the User Area and is particularly 
useful while debugging. 



EJECT Monitor Control Record 



It is also permissible to provide no system cartridge 
on the system at this time if no further system operations 
are required, e.g., CALL EXIT, CALL DUMP, or 
CALL LINK. This is particularly useful to the one drive 
user. 

The FORTRAN calling sequence for SYSUP is des- 
cribed in the section of this manual entitled System 
Library Utility Subroutines. 



The EJECT record is used to control the beginning of a 
new page on the principal print device during a job. For 
example, messages to the operator of the Monitor Com- 
ments control record type may be placed in a more 
readable position if followed by an EJECT record. 

Example: 
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SYSUP 

Changing cartridges in the middle of a job is permis- 
sible; however, great care must be exercised. A sys- 
tem update operation must always be performed. This 
function is provided by the System Library subroutine 
SYSUP. The subroutine should be called immediately 
following the loading of the new cartridge or cartridges 
as follows: 
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The IDs of cartridges to be used must be specified, 
even those that were previously specified except the 
master (logical 0), which if unspecified will be the 
previous master. Continuation of the job must be de- 
layed until all the newly loaded cartridges are ready. 
Rules governing the specification of cartridges are the 
same as those for the JOB Monitor control record. 



MAXIMUM PERFORMANCE OF HIGH SPEED 
DEVICES 

Double Buffering 

The 2501 Card Reader model A2, rated at 1000 cards 
per minute presents a special problem to the program- 
mer who desires maximum performance from his card 
I/O operations. If any conversion of the card data is 
required, the reading speed is likely to drop to 500 
cards per minute, unless double-buffering is used. 

The principle involved, is to read into one buffer 
while converting and processing the data from another 
buffer. This scheme does cost core for the extra 
buffer and additional programming involved, but in most 
cases it should allow the card throughput for the 2501 to 
remain at 1000 cards per minute. The coding illus- 
trated below shows the double-buffering technique used 
for reading cards from the 2501, and converting them 
to EBCDIC. 
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1403 Conversion Subroutines 



Intermediate I/O 



Two subroutines are provided with the Monitor system 
that may be used by Assembler object programs to con- 
vert EBCDIC to 1403 Printer Code. These subroutines 
are EBPRT and ZIPCO. 

Using the execution times listed in the Subroutine 
Library manual, the average time EBPRT requires to 
convert a 120 character line is 156 ms. This compares 
with an estimate of 72 ms per line for ZIPCO. 

Considering that the available times on the 1403 
Printer are 



As the source records are read and processed by the 
Assembler in Pass 1, each statement is packed and 
saved on the disk in Working Storage. The part of the 
record that is saved is from column 21 to the last non- 
blank column. If no listing is specified, comments 
records are not saved on the disk. 

Each record saved on the disk is preceded by a pre- 
fix word that contains the length of the associated rec- 
ord plus one. Up to sixteen 38- column records are 
saved on one sector. 



Model 6 (340 LPM): 176 ms/line 
Model 7 (600 LPM): 100 ms/line 



WRITING ISS AND ILS 



it would be difficult or impossible to run the printer at 
rated speed, depending on the model, using EBPRT. If 
overlapped I/O were attempted, it would be impossible 
to run either model at rated speed. 

The assembly language programmer is therefore ad- 
vised to use ZIPCO for all EBCDIC to 1403 Printer code 
conversions. 



TIPS FOR ASSEMBLER LANGUAGE USERS 



Grouping of Mnemonics 

Assembler language programs can often be organized in 
such a manner as to improve the assembly time. The 
Assembler Program is divided into overlay phases, each 
phase processing a certain group of mnemonics. By 
grouping mnemonics of a common type in the source pro- 
gram, fewer disk reads of overlay phases will be re- 
quired by the Assembler. The following is a list of the 
mnemonics as they are grouped within the Assembler 
program: 

A. ABS, FILE, ENT, ISS, ILS, SPR, EPR 

B. DCs and imperative instructions (A, LD, EOR, 
BSC, etc.) 

C. DEC and XFLC 

D. DMES 

E. HDNG, ORG, EQU, BSS, BES, LIST, SPACE, 
EJCT, DUMP, PDMP 

F. LD3F, CALL, DSA, LINK, EXIT, EBC, DN 

Each time a mnemonic is encountered during the 
assembly process, the overlay phase required to proc- 
ess it will be read into core, unless it is already resid- 
ing in core. 



Interrupt Service Subroutines 

The following rules must be adhered to when writing an 
ISS: 

• Precede the ISS statement with an LIBR statement 
if the subroutine is to be called by LIBF rather than 
CALL. 

• Precede the subroutine with an EPR (extended) or an 
SPR (standard) statement if precision specification 
is necessary. 

• Precede the subroutine with one ISS statement defin- 
ing the entry point (one only), the ISS number, and 
the ILS subroutines required. The device interrupt 
level assignments, and the ISS numbers used in the 
D3M-provided ISS and ILS routines, are shown in 
Table 4. See the 1130 Assembler Language Manual 
(Form C26-5927), for a description of the ISS state- 
ment. Note that the ISS numbers assigned by the 
IBM-supplied subroutine range from 1-11. ISS 
numbers 12-20 are assignable by the user. (They 
should be assigned from 20 downwards. ) 

• When assembling the ISS, an *LEVEL n control 
card must be included for each interrupt level 
associated with the device. 

• The entry points of an ISS are defined by the related 
ILS. This must be taken into consideration when a 
user-written ISS is used with an IBM supplied ILS. 
The ILS executes a Branch and Store I instruction 
to the ISS at the ISS entry point plus n (see Table 4). 
The ISS must return to the ILS via a BSC instruction 
(not a BOSC). 
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Table 4. ISS/ILS Correspondence 



ISS 

Number 


Device 


Device Interrupt 
Level Assignments 


n 


1 


1442 Card Reader Punch 


0,4 


+4, +7 


2 


Input Keyboard/Console 
Printer 


4 


+4 


3 


1 134/1055 Paper Tape 
Reader/Punch 


4 


+4 


4 


Disk Storage 


2 


+4 


6 


1 132 Printer 


1 


+4 


7 


1627 Plotter 


3 


+4 


8 


Synchronous Communi- 
cations Adapter 


i 
1 


+4 


9 


1403 Printer 


4 


+4 


10 


1231 Optical 
Mark Page Reader 


4 


+4 



is the ISS number implied by bits 8-15 of the branch 
table word and specified in the ISS statement. This 
number identifies a core location in which the Core Load 
Builder has stored the address of the called entry point 
in the ISS. This entry point address is incremented by 
the value in bits 0-7 of the branch table word, produc- 
ing the interrupt entry point address. The Core Load 
Builder replaces the ISS branch table word with the 
interrupt entry point address. 

During execution, each address in the branch table 
may be used with an indirect branch and store I (BSI) 
instruction to reach the ISS corresponding to that ILSW 
bit position. The ILSW bit that is ON can be determined 
by the execution of a SLCA instruction. At the comple- 
tion of this instruction, the index register specified 
contains a relative value equivalent to the bit position 
in the ISS branch table. An indirect, indexed BSI may 
then be used to reach the appropriate ILS. 

Before processing by the Core Load Builder, each 
word in the ISS branch table has the following format: 



Interrupt Level Subroutines 

An ILS is included in a core load only if requested by an 
ISS that is a part of the same core load. ILS02 and 
ILS04 are a part of the Resident Monitor unless they are 
deleted from the System Library and replaced with user- 
written subroutines. The following rules must be ad- 
hered to when writing an ILS. 



Bits 0-7 — Increment added to the entry point named in 
the ISS statement to obtain the interrupt entry point in 
the ISS for this ILSW bit. (In IBM-written ISS subrou- 
tines, this increment is +4 for the primary interrupt 
level and +7 for the second interrupt level.) 

Bits 8-15 ~ @ISTV+ the ISS number for the ISS subrou- 
tine for this ILSW bit. 



• Precede the subroutine with an ILS statement to 
identify the interrupt level involved. 

• Precede all instructions by an ISS branch table 
and include one word per ILSW bit used. If the 
ILSW is not to be scanned, (i.e., a single ISS 
handles all interrupts on the level), then a one 
word table is sufficient. The minimum table 
size is one word. Table words must be non-zero. 
A zero must follow the branch table. 



Word Corresponding To 

ILSW Bit 15 - 
ILSW Bit 14 

ISS Branch Table 

ILSW Bit -* 



The ISS branch table identifies both the ISS subroutine 
and the point within the ISS which should be entered for 
each bit used in the ILSW. The actual linkage is gener- 
ated by the Core Load Builder. Basic to this generation 



The ILS entry point must immediately follow the ISS 
branch address table and must be loaded as a zero. 
The Core Load Builder assumes that the first zero 
word in the program is the end of the branch table 
and is also the entry point of the ILS. (The table 
must contain at least one entry. ) The interrupt 
results in a BSI to the ILS entry point. 



To clear the level, a user-written ILS, used with 
an IBM- supplied ISS, should exit via the return 
linkage with a BOSC instruction. 



• User-written ILS must replace the equivalent IBM- 
supplied ILS. The user written ILS must be stored 
as ILSOx, where x = 0, 1, 2, 3, 4, or 5. 

• The IBM- supplied ILS02 and ILS04 subroutines 

are stored as subtype 1. User-written replacements 
must be stored as subtype zero. 

• The branch table for ILS04 may have no more than 
9 entries. 
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READING A CORE MAP AND A FILE MAP 

The core maps described below are taken from the 
sample programs supplied with the Monitor system. 
(The sample program listings and operating instructions 
are printed 7 in Appendix J.) 

The core map for the Assembler-language sample 
program indicates that there were /7904 words of core 
storage not occupied by the core load (R41 is an infor- 
mational message, not an error message). There was 
only one CALL (FSQR), but mere were several LIBFs, 
e. g. , FARC. The ILS02 and ILS04 subroutines are 
required; however, their addresses indicate that they 
are a part of the Resident Monitor and not in the core 
load proper. The entry point to the mainline program 
is /01FE. 

The principal difference in the core map printed for 
the FORTRAN-language sample program is that it in- 
cludes a file map. The file defined as file number 103 
has been equated to a data file named FILEA, which be- 
gins at sector /01AE , is one sector in length, and is 
stored on a cartridge labeled 000F. 

If file 103 had required more than the two sectors 
available in FILEA, the record count would have been 
reduced to make the file fit in FILEA, and the file 
map entry would have been 

103 01AE 0002 0OOF FILEA TRUNCATED 

The files defined as 101 and 102 are files in Working 
Storage because they do not appear in the *FILES rec- 
ord. This can be determined by looking at the right- 
most entry in the file map. For files defined in the 
User/Fixed Area, for example, FILEA, this entry is 
the name of the file; otherwise, it is the address of 
Working Storage. 

The second entry for a User/Fixed Area file is the 
absolute sector address of the first sector of the file. 
For files in Working Storage, this address is relative 
to the first sector of Working Storage. Thus, the abso- 
lute sector address of the first sector of file 101 is 
/0000 + /01B0; for file 102 it is /0001 + /01B0. 

Note that the 4K example requires bom LOCALs 
and SOCALs. The LOCALs were, of course, requested 
by the user, and the core map entries for the LOCAL 
subroutines (FLOAT, FARC, and IFIX) have been flag- 
ged. The presence of SOCALs, which were selected and 
constructed by the Core Load Builder, are also indicated 
by flags on the core map entries for the subroutines in- 
cluded in the various SOCALs. The number following the 
word "SOCAL" indicates in which of the SOCALs a par- 
ticular subroutine is to be found. In this case SOCAL 
Option 2 was employed. This can be deduced from the 
fact that there are three SOCALs. Option 1 consists of 
only two. 

Several other facts about the 4K core load can be ex- 
tracted from the core map. For one thing, the core 



load exceeds the capacity of core storage (before 
SOCALizing) by /03AB words (message R40). Further- 
more messages R43, R44, and R45 indicate that 
SOCALs 1, 2, and 3 require /0124, /06AC, and /02A2 
words of core, respectively. This information indicates 
that, for example, since SOCAL 2 is much larger than 
SOCAL 1, more arithmetic and function subprograms 
may be called at little extra cost in core. (It would be 
necessary to reduce the dimension of the variable B 
to realize this.) Message R41 says that, after 
SOCALizing, there are only /0004 words of core that 
are not used by this core load. 



Assembler Core Map 



// XEQ 


L 


R 41 7904 (HEX) WDS UNUSED BY CORE LOAO 


CALL TRANSFER VECTOR 


FSQR 


0248 


LIBF TRANSFER VECTOR 


FARC 


069E 


XHOS 


0682 


HOLL 


0632 


PRTY 


05E2 


EBPA 


0592 


FADD 


04E1 


FDIV 


0540 


FLO 


048C 


FAODX 


04E7 


FMPYX 


04A2 


FSTO 


0470 


FGETP 


0456 


NORM 


042C 


TYPEO 


0312 


EBPRT 


02AC 


IFIX 


0280 


FLOAT 


0230 


SYSTEM 


SUBROUTINES 


ILS04 


O0C4 


ILS02 


O0B3 


OIFE (HEX) IS THE EXECUTION A0OR 



FORTRAN Sample 4K Core and File Map 



// XEQ 




L 2 




•LOCAL* FLOAT 


.FARC. 


IFIX 


*FILES< 103. FILEA) 




FILES 


ALLOCATION 




103 


01AE ( 


)001 ( 


DOOF FILEA 


101 


0000 ( 


>001 ( 


300F 01B0 


102 


0001 0001 ( 


300F 01BO 


STORAGE ALLOCATION 




R 40 


03AB (HEX) ADDITIONAL CORE REQUIRD 


R 43 


0124 (HEX) ARITH/FUNC SOCAL WD CNT 


R 44 


06AC (HEX) FI/0. I/O SOCAL WD CNT 


R 45 


02A2 (HEX) DISH FI/0 SOCAL WD CNT 


R 41 


0004 (HEX) WDS UNUSED BY CORE LOAD 


LIBF TRANSFER VECTOR 


EBCTS 


0F53 


SOCAL 


2 


HOLTB 


0F17 


SOCAL 


2 


GETAD 


0ED4 


SOCAL 


2 


XMDS 


09B2 


SOCAL 


1 


HOLEZ 


0E9E 


SOCAL 


2 


NORM 


07DC 






FADDX 


095D 


SOCAL 


1 


FSBRX 


0934 


SOCAL 


1 


FMPYX 


0900 


SOCAL 


1 


FDIV 


08AE 


SOCAL 


1 


FSTOX 


0788 






FLDX 


07A4 






SOCOM 


0920 


SOCAL 


3 


SOFX 


08 E6 


SOCAL 


3 
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SDWRT 


095* 50CAL 3 


SIOFX 


099A SOCAL 2 


SUBSC 


07BE 


SIOI 


099E SOCAL 2 


SCOMP 


0982 SOCAL 2 


SWRT 


08AB SOCAL 2 


SRED 


08B0 SOCAL 2 


FSTO 


078C 


FLD 


07A8 


PRNT2 


OOEO SOCAL 2 


CARDZ 


0D36 SOCAL 2 


SFIO 


09AD SOCAL 2 


SDFIO 


0959 SOCAL 3 


IFIX 


087C LOCAL 


FARC 


087C LOCAL 


FLOAT 


087C LOCAL 


SYSTEM 


SUBROUTINES 


ILSOA 


OOC* 


ILS02 


0OB3 


ILSOl 


0F5A 


ILSOO 


0F75 


FLIPR 


0816 


0*00 (HEX) JS THE EXECUTION AOOR 


FORTRAN Sample 8K Core and File Map 


// XEQ 


L 1 


•FILES(103»FILEA> 


FILES ALLOCATION 


103 OlAE 0001 OOOF FILEA 


101 0000 0001 OOOF 01B0 


102 0001 0001 OOOF 0180 


STORAGE 


ALLOCATION 


R *1 0C9C (HEX) WOS UNUSED BY CORE LOAD 


LIBF TRANSFER VECTOR 


EBCTB 


12CD 


HOLTS 


1291 


GETAD 


12*E 


NORM 


122* 


XHDS 


1208 


FARC 


11E6 


HOLEZ 


HBO 


FLOAT 


11A6 


IFIX 


117A 


FADOX 


1125 


FSBRX 


10FC 


FMPYX 


10C8 


FOIV 


1076 


FSTOX 


101E 


FLDX 


103A 


SDCOM 


07FE 


SDFX 


07C* 


SDWRT 


0832 


SIOFX 


OBI A 


SUBSC 


105* 


SIOI 


0B1E 


SCOMP 


0B02 


SWRT 


0A2B 


SRED 


0A30 


FSTO 


1022 


FLD 


103E 


PRNTZ 


0F60 


CARDZ 


0EB6 


SFIO 


0B20 


SDFIO 


0837 


SYSTEM 


SUBROUTINES 


ILSO* 


OOC* 


ILS02 


00B3 


ILSOl 


12D2 


ILSOO 


12E0 


0*00 (HEX) IS THE EXECUTION ADDR 



LOCATING FORTRAN ALLOCATION ADDRESSES 

The variable allocations listed below are taken from the 
FORTRAN sample program in Appendix J. 



VARIABLE ALLOCATIONS 

A(R >»OODC-0016 

V3(I )»020E 

L2(I )>0214 

K(I )>021A 



D(R )«020A 

Ml(I )-0211 

N(I )»0217 



X(R l-OOFO-OODE 

M(I )«020F 

N1II )-0215 

IK(I )*021B 



VI (I J-020C 

M2(I )-0212 

Id >>0218 



B(R )"0208-00F2 

Lll >"0210 
N2(I )>0216 
11(1 )«021C 



V2(I )>020D 

LKI )-0213 

J(I >«0219 



The variable array A is to be found between core loca- 
tions /OODC + /001E + $ZEND and /0016 + /001E 
+ $ZEND, inclusive. That is, A ± is at /OODC + /001E 
+ $ZEND, A 2 at /OODB + /001E + $ZEND, etc. The 
/001E term is the length of the Core Image Header and 
$ZEND is the address of the first core location follow- 
ing DISKZ. 

The other allocation addresses, e. g. , statement 
allocation, may be calculated in a similar manner. 



INITIALIZING $$$$$ DATA FILES FOR USE WITH 
FORTRAN UNFORMATTED I/O 



The user must define a Data File with the name 
prior to executing a FORTRAN mainline program or 
subroutine that uses unformatted I/O. This Data File 
must be located in the Fixed Area. One file may be 
defined in the Fixed Area of each cartridge on the sys- 
tem; however, only one $$$$$ file may be referenced 
in any one job. 

The following example shows a $$$$$ file being de- 
fined on a satellite cartridge. 

The satellite cartridge ED is 1004 
The system cartridge ID is 1001 
A file of 100 sectors is desired 

After the file is defined, program ML1 which uses un- 
formatted I/O can be executed. Note that no *FILES 
card is required at execution time to define the 
file. 



/ / JQh, .10,01 ... J OQ * 



12 3 4 5 4 78 9 10 II 12 13 14 15 16 17 18 19 2021 2223 2425262728 2930 31 32 33 34 35 343738 39 40414243 



//, PU.R 



», P £f,I N ,E FIXED AREA 



^. 14 ■ 



»S-TOfrEMTA kl& . PX -fifrfij. IflftlOOJ., 



XflOA_ 



fj JOft lftO-t 



■1004 ■ 



/ / , XE<3 HU, 



IQQfL 



USE OF DEFINED FILES 

When an *FILES Supervisor control record is used fol- 
lowing a // XEQ Monitor control record, or a 
*STORECI control record, the Core Load Builder 
attempts to locate the file name by searching LET or 
FLET. If the name is found, the sector address of 
this Data File is inserted in the file table (created as a 
result of the FORTRAN DEFINE FILE statement or the 
Assembler FILE mnemonic) identified by the file num- 
ber specified on the *FILES record. If the file name 
is not found in LET or FLET, the Core Load Builder 
causes this file to be a Working Storage file\ A sug- 
gested way of initially allocating a disk area for a Data 
File is to perform a *STOREDATA DUP operation from 
Working Storage to the User or Fixed Area. The num- 
ber of sectors stored should be determined on the basis 
of the number of records the file is to contain, and the 
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size of each record. Note that records do not continue 
across sector boundaries. Once the number of sectors 
required has been determined, this number of sectors 
should be specified on the *STOREDATA control record, 
provided the User Area or Fixed Area is large enough 
to contain this file. 



DUPLICATE PROGRAM AND DATA FILE NAMES 



initialize sector addresses only. (See p. 87 for 
operating procedure. ) 

If some part of the Monitor System has been 
destroyed (including LET, FLET, User Area and 
Fixed Area) a reload function may be performed 
with the System Loader. In this case, the entire 
Monitor System deck, except the System Library, 
should be processed by the System Loader. 



On a multi-drive system, it is possible to have more 
than one program or data file with the same name. This 
can cause problem s when attempting to execute or delete 
the named program . 

Example: 



i 2 3 4 5 6 7 8 9 10 11 12 13 14 15 1 


» 17 18 19 2021 22 23 24 25 26 27 28 » 30 31 32 33 34 35 3637 38 39 40 41 4243 


// J6^ .1 l.l.l . 




tt.ST.OttR 






p.nofii 2i.±.i. . 








...*... 
















,•. . . 
















/./ JAA 


Z?.l? 














*ST6fi£ 






PKOGL , 


.222.2 . 
























• 
















.*. ■ 
















// AAA 














// xco pprrv 

























This sequence of instructions will cause PROG1 on the 
cartridge labeled 1111 to be executed when PROG1 on 
2222 may have been desired. A similar problem can 
occur on a DELETE operation. 



12 3 4 3 6 7 8 ? 10 11 12 13 14 15 16 17 18 1? 2021 22 23 2425 262728 2930 31 3233 34 35 36373839 40 41 4243 



Impel ete 



-ttflRSiMfc-X- . *—*.., 



would delete the program on 1111, not the one on 2222. 

The answer to this problem is to avoid having two 
programs or data files with the same name. If a strange 
cartridge is on line and it is not needed for the job, 
disable it. 



MAINLINE PROGRAMS THAT USE ALL OF CORE 

Before writing a program that occupies all or nearly all 
of core, the user should weigh the advantage gained 
against the possible later rewriting required if IBM- 
supplied subroutines used by the core load are expanded 
due to modification. 



TIPS FOR FORTRAN LANGUAGE USERS 

It is strongly recommended that the use of the 1130 
device code be avoided in READ and WRITE state- 
ments, the use of integer variables in such cases 
allows for easier modification. 



CONNECTING FROM VERSION 1 TO VERSION 2 

• Data files and DSF programs must be dumped 
from the Version 1 cartridge to cards or paper 
tape and stored on the Version 2 cartridge under 
DUP control, 

• The five -character alphameric disk cartridge 
labels used in Version 1 must be changed to 
four-character hexadecimal labels. 



NAME CONFLICTS 

In STORE and DELETE operations, care should be 
taken to avoid name conflict with IBM -supplied pro- 
grams. If the program to be stored or deleted 
carries the same name as an IBM program, the 
system may execute the operation on the wrong 
program. 

RESTORING DESTROYED CHARACTERS 

Cartridges that contain data and/or programs in 
the User Area or Fixed Area, and which may be 
difficult to replace, can sometimes be restored to 
use after being rendered unusable. If only sector 
addresses are affected, DCIP may be used to 



DCI programs on a Version 1 cartridge cannot 
be dumped and stored on a DM2 cartridge. 
They must be stored in DSF on the DM2 cart- 
ridge and then converted to DCI under DUP 
control, which implies that the original DSF 
mainlines must be available. 

Since the FORTRAN I/O device numbers are 
fixed, some reprogramming is necessary when- 
ever programs that use a given I/O device are 
required to employ a different device. For 
example, if a program that uses an 1132 Printer 
is to use a 1403 Printer, the device numbers must 
be changed in all READ and WRITE statements 
that reference the printer. 



Programming Tips and Techniques 55 



MONITOR SYSTEM LIBRARY 



The System Library is a group of disk- resident sub- 
programs and mainline programs that perform I/O, 
conversion, arithmetic, and disk initialization and 
disk maintenance functions. A paper tape utility pro- 
gram (PTUTL) is also included in the System Library. 
Appendix F is a listing of the Monitor System Library. 



ADDING AND REMOVING SUBROUTINES 

Subroutines can be added to or deleted from the Monitor 
System Library as desired by the user. The DUP con- 
trol record STORE is used to add a subroutine and the 
DUP control record DELETE is used to remove a pro- 
gram (see DUP Control Records) . Each program in the 
IBM- supplied system deck is preceded by a DUP STORE 
control record. 

The user should not remove subroutines that are 
called by other subroutines left in the System Library 
(refer to Appendix F for a list of subroutines called by 
other subroutines). Neither should he delete any of the 
mainline programs, since they may be required by 
Monitor programs. 



SYSTEM LIBRARY SUBROUTINES 



The 1130 Monitor System Library contains a group of 
programs that aid the programmer in making efficient 
use of the 1130 Computing System. Descriptions of the 
programs and methods for programming them are con- 
tained in the publication, D3M 1130 Subroutine Library 
(Form C26-5929). From an operational standpoint, the 
programs of particular interest are the ISSs, which 
manipulate the I/O devices attached to the 1130 Comput- 
ing System and handle all programming details peculiar 
to each device. Table 5 lists the ISSs supplied with the 
1130 Monitor system. 

NOTE: User-written ISSs should be numbered from 20 
down to avoid conflict with IBM-assigned ISS numbers 
(see Digit 1 under Preoperative Errors). 

NOTE: Although the disk subroutines are technically not 
ISSs, they have most of the characteristics of an ISS. 

The following paragraphs describe the use of some of 
the IBM- supplied ISS subroutines and discuss preoper- 
ative errors and I/O error restarts in which special 
handling is required. All addresses are given in sym- 
bolic form. See the table of equivalence in the listing of 
the Resident Monitor (Appendix H) to equate the symbolic 
to the absolute addresses. ISS preoperative error WAITs 
are listed in Appendix A. 



PREOPERATIVE ERRORS 

A preoperative error is an error condition detected 
before an I/O operation is started. It denotes either an 
illegal parameter, an illegal specification in the I/O 
area, or a device not-ready condition. This error 
causes a trap to $PRET and the following conditions: 

• The Instruction Address Register displays the 
address $PRET+1. 

• The Accumulator displays an error code repre- 
sented by four hexadecimal digits. 

Digit 1 identifies the ISS called: 

1 - CARDx or PNCHx 

2 - TYPEx or WRTYx 

3 - PAPTx 

4 - READx 

5 - DISKx 

6 - PRNT1, PRNT2, or PRNTZ 

7 - PLOT1 

8 - SCATx 

9 - PRNT3 or PRNZ 
A - OMPR1 

Digits 2 and 3 are not used. 
Digit 4 identifies the error: 

- Device not ready 

1 - Illegal parameter or illegal specification in 

I/O area 



Table 5. 1130 Disk Monitor System ISS Names 



Device 


Subroutine 


1442 Card Read Punch 


CARDZ, CARD0, or CARD1 


2501 Card Reader 


READZ, READ0, or READ1 


1442 Card Punch 


PNCHZ, PNCH0, or PNCH1 


Disk 


DISKZ, DISK1, orDISKN 


1132 Printer 


PRNTZ, PRNT1, orPRNT2 


1403 Printer 


PRNZ, or PRNT3 


Keyboard/Console Printer 


TYPEZ,orTYPE0 


Console Printer 


WRTYZ, orWRTYO 


1134/1055 Paper Tape Reader 
Punch 


PAPTZ, PAPT1, PAPTN, OR PAPTX 


1627 Plotter 


PLOT1 


1231 Optical Mark Page Reader 


OMPR1 


Synchr. Comm. Adapter 


SCAT1, SCAT2, or SCAT3 
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• $PRET contains the address of the call in 
question. 

The ISS is set up to attempt initiation of the operation 
a second time if the CALL is re-executed. Pressing the 
PROGRAM START key will return control to the ISS for 
a re-execution of the call. 

When a preoperative error is encountered the operator 
can: 

• Correct the error condition if possible and press 
PROGRAM START, or 

• Note the contents of the Accumulator and location 
$PRET, dump core storage, and proceed with the 
next job. 



1442 CARD SUBROUTINE ERRORS 
(CARDx AND PNCHx) 



Error Parameters 

CARDZ, CARDO, PNCHZ, or PNCHO. There is no 
error parameter. If an error is detected during proc- 
essing of an operation-complete interrupt, the subrou- 
tine traps to $PST4, with interrupt level 4 on. After 
the 1442 is made ready, pressing the PROGRAM START 
key will cause the operation to be reinitiated. 

CARPI or PNCH1. There is an error parameter. If 
an error is detected during processing of an operation- 
complete interrupt, the user program can elect to 
terminate (clear "subroutine busy indicator" and turn 
off the interrupt level) or to retry. A retry consists of 
waiting at $PST4 with interrupt level 4 on and then re- 
initiating the function. 

Last Card. A read or feed function requested after the 
last card has been detected causes the last card to be 
ejected, and a trap to $PRET occurs. A punch function 
will punch and then eject the last card with a normal exit. 



1442 Errors and Operator Procedures 

If a 1442 error occurs, the 1442 becomes not-ready 
until the operator has intervened. Unless the stop is 
caused by a stacker full (no indicator) or chip box indi- 
cation, the 1442 card path must be cleared before pro- 
ceeding. The 1442 error indicators and the position of 
the cards in the feed path should be used to determine 
which cards must be placed back in the hopper. 

For the card subroutines, a retry consists of position- 
ing the cards (i. e. , skipping the first card in the hopper, 



if necessary, on a read or feed operation) and reiniti- 
ating the function whenever the card reader becomes 
ready. 

Read errors do not apply to the 1442-5. 

Hopper Misfeed. Indicates that card 2 failed to pass 
properly from the hopper to the read station during 
the card 1 feed cycle. 

Card positions after error: 



Punch Stat 


on-t 


Read Station 

* 


Corner ^ 




m 






Stacker ». 








m 



Error indicator: 
Operator procedure: 



Hopper 



HOPR 

When program halts, press 
NPRO to eject card 1, place 
card 1 in hopper before card 
2, and ready the 1442. 



Feed Check (punch station) . Indicates that card 1 is 
improperly positioned in the punch station at the com- 
pletion of its feed cycle. 

Card positions after error: 



Punch Station - 



Corner - 



Stacker - 



Read Station 



m 



■ Hopper 



Error indicator: PUNCH STA 

Operator procedure: When program halts, empty 
hopper, clear 1442 card path, 
place cards 1 and 2 in hopper 
before card 3 and ready the 
1442. 

Transport . Indicates that card 1 has jammed in the 
stacker during the feed cycle for card 2. 
Card positions after error: 

Punch Station— 1 Read Station 

1 i 



Corner 



Stacker 



<$> S 






-Hopper 
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Error indicator: 
Operator procedure: 



TRANS 

When program halts, empty 

hopper, clear 1442 card path, 

place cards 2 and 3 in hopper 

before card 4, and ready the 

1442. 



Feed Cycle. Indicates that the 1442 took an unre- 
quested feed cycle and, therefore, cards 1,2, and 3 
are each one station farther ahead in the 1442 card 
path than they should be. 

Card positions after error: 



Punch Station 



Punch Station 



Corner »■ 



Stacker 



1 



Read Station 



cn 



m 



m 



-Hopper 



Error indicator: 
Operator procedure: 



FEED CLU 

When program halts, empty 
hopper, press NPRO to eject 
cards 2 and 3 , place cards 1 , 
2, and 3 in hopper before 
card 4, and ready the 1442. 



1 



Read Station 



Corner 



Stacker 





m 


m 

hi 







-Hopper 



Error indicator: 
Operator procedure: 



READ REG 

See Feed check (punch station). 
Repeated failures of this type 
might indicate a machine mal- 
function. 



Punch Check. Indicates an error in output punching. 



Card positions after error: 


Read Station 

1 


Corner ►■ 




m 




m 


Stacker »■ 








hi- 



- Hopper 



Feed Check (read station). Indicates that card 1 failed 
to eject from the read station during its feed cycle. 
Card positions after error: 



Punch Station 



Corner 



Stacker 



1 



Read Station 

_J_ 



d5^ 
m 



■ Hopper 



Error indicator: 
Operator procedure: 



PUNCH 

When program halts, empty 
hopper, check card position 
and press NPRO to clear 1442 
card path. If necessary, cor- 
rect card 1 to prepunched state. 
Place (corrected) card 1 and 
card 2 in hopper before card 3 
and ready the 1442. 



2501 CARD SUBROUTINE ERRORS (READx) 



Error indicator: 
Operator procedure: 



READ STA 

When program halts , empty 

hopper, clear 1442 card path, 

place cards 1 and 2 in hopper 

before card 3, and ready the 

1442. 



Read Registration. Indicates incorrect card registra- 
tion or a difference between the first and second reading 
of a column. 

Card positions after error: 



Error Parameters 

READZ or READO. There is no error parameter. If an 
error is detected during processing of an operation- 
complete interrupt, the subroutine traps to $PST4, with 
interrupt level 4 on. After the 2501 is made ready, 
pressing the PROGRAM START key will cause the 
operation to be reinitiated. 

READ1. There is an error parameter. If an error is 
detected during processing of an operation-complete 
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interrupt, the user program can elect to terminate 
(clear "subroutine busy indicator" and turn off the 
interrupt level) or to retry. A retry consists of waiting 
at $PST4 with interrupt level 4 on until the 2501 be- 
comes ready, and then reinitiating the function. 

Last Card. A read function requested after the last 
card has been detected causes a trap to $PRET. 



2501 Errors and Operator Procedures 

If a 2501 error occurs, the 2501 becomes not-ready 
until the operator has intervened. Unless the stop is 
caused by a stacker full or cover open (ATTENTION), 
the 2501 card path must be cleared before proceeding. 
The 2501 error indicators and the position of the cards 
in the feed path should be used to determine which 
cards must be placed back in the hopper. 

For the card subroutines, a retry consists of posi- 
tioning the cards (i.e. , skipping the first card in the 
hopper, if necessary) and reinitiating the read function 
whenever the card reader becomes ready. 

FEED CHECK. A feed check indicates that a card is 
mispositioned in the feed path or a card has failed to 
feed from the hopper. 

When the program traps to $PST4, empty the hopper 
and clear the 2501 card path. If a card is improperly 
positioned at the pre-read station (it has not been read), 
place this card ahead of the cards remaining to be 
read, place the deck back in the hopper, and ready the 
2501. 

READ CHECK. A read check indicates incorrect 
card registration or a difference between the first and 
second reading of a column. 

When the program traps to $PST4, empty the hopper, 
NPRO, place the last two cards in the stacker ahead of 
the deck remaining to be read, place this deck back in 
the hopper, and ready the reader. 



KEYBOARD SUBROUTINE FUNCTIONS 
(TYPEZ and TYPE0) 



Re-entry 

When the ERASE FIELD key is pressed, a character 
interrupt signals the interrupt response subroutine that 
the previously-entered Keyboard message is in error 
and will be re-entered. The subroutine prints two 
slashes on the Console Printer, restores the carrier to 
a new line, and prepares to replace the old message in 
the I/O area with the new message. The operator then 
enters the new message. The old message in the I/O 
area is not cleared. The new message overlays the 
previous message, character by character. If the 
previous message was longer than the new message, 
characters from the previous message remain (following 
the NL character which terminated the new message). 
When the interrupt response subroutine recognizes 
the end-of-message control character, it assumes the 
message has been completed, stores an NL character 
in the I/O area, and terminates the operation. 



Backspace 

When the backspace key is pressed, the last graphic 
character entered is slashed and the address of the next 
character to be read is decremented by +1. If the back- 
space key is pressed twice consecutively, the character 
address is decremented by +2, but only the last graphic 
character is slashed. For example, assume that 
ABCDE has been entered and the backspace key pressed 
three times. The next graphic character replaces the C, 
but only the E is slashed. If the character F had been 
used for replacement, the paper would show ABCDE FFF, 
but ABFFF would be stored in the buffer. 

TYPEZ treats the backspace key as if it were the 
erase field key. 



CONSOLE PRINTER SUBROUTINE ERRORS 
(TYPEZ, TYPE0, WRTYZ, and WRTY0) 

If the carrier attempts to print beyond the manually 
positioned margins, a carrier restore (independent of 
the program) occurs. 

Subroutine printing begins wherever the carrier is 
positioned as a result of the previous print operation. 
There is no automatic carrier return as a result of a 
call to the subroutine. 

If the Console Printer indicates a not-ready condi- 
tion after printing has begun, the subroutine traps to 
$PST4 with interrupt level 4 on. After the Console 
Printer is made ready, pressing the PROGRAM START 
key will cause the operation to be reinitiated. 



PAPER TAPE SUBROUTINES (PAPTx) 

If the reader or punch becomes not ready during an 
I/O operation, the subroutines exit to the user via the 
error parameter. The user can request the subroutine 
to terminate (clear device busy on the interrupt level) 
or to wait at $PST4 (postoperative error trap) waiting 
for operator intervention (interrupt level 4 on). 

If the 1134/1055 indicates a not-ready condition after 
an operation has been initiated, the subroutines trap to 
$PST4 with interrupt level 4 on. After the device has 
been made ready, pressing the PROGRAM START key 
will cause the operation to be reinitiated. 
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SYSTEM LIBRARY MAINLINE PROGRAMS 



Printout 



The 1130 System Library mainline programs provide 
the user with the ability to perform disk maintenance 
and paper tape utility functions by requesting execu- 
tion of the appropriate program directly through the 
job stream. 



;al 


DRIVE 


CART. ID 


00 




XXXX 


01 




XXXX 


02 




XXXX 


03 




XXXX 


04 




XXXX 



DISK MAINTENANCE PROGRAMS 



where 



The disk maintenance programs are mainline programs 
that are a part of the System Library and that initialize 
and modify disk cartridge IDs, addresses, and tables 
required by the Monitor system. Normally, they should 
never be deleted from the System Library. 

The disk maintenance mainline programs are: 



IDENT 


- Print Cartridge ID 


DISC 


- Satellite Disk Initialization* 


DSLET 


- Dump System Location Equivalence 




Table 


ID 


- Change Cartridge ID 


COPY 


- Disk Copy 


ADRWS 


- Write Sector Addresses in 




Working Storage 


DLCIB 


- Delete CIB 


MODIF 


- Monitor System Update 



The disk maintenance programs (except ADRWS) 
are called by an XEQ monitor control record. Some 
disk maintenance programs also require an ID control 
record. The format and use of the ID control record 
is described under the program descriptions which 
follow. 



IDENT (Print Cartridge JD) 

This program prints the ID and physical drive number 
of each cartridge mounted on the system. The program 
overrides any cartridge IDs specified on the JOB card 
and operates with all ready drives. IDENT will read 
and print illegal IDs including negative numbers. 
The calling sequence for IDENT is: 



1 1 1 4 S t 7 t » 10 11 » 11 


4 13 It 


17 !• 19 20 21 


22 23 24 25 26 27 


21 2» 30 


31 3 


2 33 34 33 ! 


/i/i 1X1E1A iTiOifiAJ.-T, i ■ . 


1 1 1 1 


1 1 1 1 1 






i i i i i i i i i i i i i i i 


1 1 1 1 








i i i i i i i i i i i i i i i 


1 1 1 1 


1 1 1 1 1 


1 1 


1 1 1 1 1 


ii i i i i i i i 


1 1 1 1 


1 1 1 1 1 


1 1 


1 1 1 1 I 


i i i i i i i i i i i i i i i 


1 1 1 1 


1 1 1 1 1 


1 1 


I I I I I 



♦All new cartridges must be initialized with DGEP before any operation 
is performed under Monitor control. DCIP also provides a disk copy 
function similar to the COPY program in the System Library. 



XXXX is the cardridge ID. 
drives are printed. 



Only the IDs on ready 



DISC (Satellite Disk Initialization) 

This program re -initializes up to four satellite 
cartridges — all but the master cartridge (see DCIP). 
DISC gives the user the ability to re -initialize a disk 
cartridge on line. It writes the sector addresses, 
defective cylinder addresses, a cartridge ID, a LET, a 
DCOM, an error message program, and a CIB on each 
cartridge initialized. 

DISC overrides all cartridge IDs specified on the 
JOB card except the master cartridge ID. 

The calling sequence for DISC is: 



1 3 4 3 t 7 1 % U> II 11 13 14 U 14 17 II 1» 20 21 22 

/i/i ufififli iPiriSiG i i i i i i i i i i i 



I2423M27202930 31B33 34 35 34 
I I I I I I I I I I I I I I 



JfaXiOFiLPiX. ^T.J.Pli, iFirifliZi ? ,T\X\DiZi, \'\> 



i i i i i i i i i 



l l l I l l l 



»ij.ifiJiOiMi jiTiriftmi 



' ' ' ' I » » ' 



where 

FDD1 through FIDn are the IDs currently on the 
satellite cartridges to be re -initialized (identified 
by IDENT or a JOB record). 

TID1 through TEDn are the IDs to be written on the 
satellite cartridges by this program. A valid 
cartridge ID is a number between /0001 and /7FFF. 

DISC Operation 

DISC causes all selected satellite drives to seek home. 
The program then writes sector addresses and three 
distinct bit patterns (/AAAA, /5555, and /0000) on all 
sectors on the first cylinder of the first disk cartridge 
being reinitialized. The program reads back each pat- 
tern after it is written. If no error occurs on any of 
the patterns, DISC continues to the next cylinder. 
This procedure is repeated until all 203 cylinders have 
been checked. The program then starts reinitialization 
on the next cartridge selected. If a read error occurs, 
the cylinder on which the error occurred is rewritten 
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and reread 50 times using the same pattern that caused 
the error to appear. If a second error occurs, the first 
sector address of the cylinder is placed in the defective 
cylinder table in word 1 of sector @IDAD. If a second 
and third defective cylinder are found, their cylinder 
addresses are written in words 2 and 3 of sector 
@IDAD. If there are no defective cylinders on the 
cartridge, words 1, 2, and 3 contain /0658. The 
cartridge ID is written in word 4 and the copy ID is 
written in word 5 of sector @IDAD. An error message 
(NON-SYST. CART. ERROR) and the program to print 
it on the Console Printer is also stored in sector 
@IDAD. The error message is printed if a cold start 
is attempted on this non-system cartridge. 



Printout 

When DISC is executed, the user punched *ID record 
is printed on the principal print device. Following this 
printout one or more of the following error messages 
may be printed. 

CARTRIDGE XXXX INVALID. . . LOGO CARD ID 

The ID of the master cartridge (logical drive 0) 
has been specified as a current ID on the *ID card. 

CARTRIDGE XXXX NEW LABEL IS INVALID 

A new ID is outside of the range /0001 - /7FFF. 

CARTRIDGE XXXX IS NOT AVAILABLE 



One line is printed for each satellite cartridge that is 
reinitialized. A NOT DONE message should appear only 
if an error message has previously been printed. 



DSLET (Dump System Location Equivalence Table) 

This program dumps the contents of SLET to the principal 
print device. Each entry printed consists of a symbolic 
name, phase ID, core address, word count, and disk 
sector address. A SLET dump is shown in Appendix I. 
The calling sequence for DSLET is: 



/i/i iXiEiQi iOiSiLiCiTi 



18 19 20 21 



25 26 27 28 







I I ' I ' ' 



' 



Ill' L_L 



I I 1 I I I I I I I I I I I I I I I I I I I I 1 I I I I I I I I I I I 







I I I I 1 I I 



ID (Change Cartridge ID) 

This program changes the ID on up to four satellite 
cartridges. 

The calling sequence for ID is: 



/i/i iXigiffi iXiDi i i i i 



KirifliFiIiQlijiTiIiDd.jiPiTiPiZi^ririnigj;, 



i i i i i i i i i 



i i i. i i i i i i i i i i i i i i i i i 



' ' ' ' ' ' ' ' 



jiFiIiQuTijiTJIiQni 



' i i i i 



' i ' ' i ' i i ' 



A selected cartridge is not on the system 
CARTRIDGE XXXX IS DEFECTIVE 

Sector @DDAD or more than 3 cylinders are defective 
on a satellite cartridge being reinitialized (to identify 
the defective cylinders, initialize the cartridge using 
DCIP). 

Following the reinitialization of the selected cartridges, 
the following message is printed. 

XXXXYYY Y NOT DONE 

or 

COMPLETE 
XXXX is the old (FID1) cartridge ED 
YYYY is the new (TID1) cartridge ED 



where 

FED1 through FEDn are the IDs currently on the 
satellite cartridges being changed (these IDs 
must be in the same logical order as the entries 
on the JOB card), 

TID1 through TIDn are the new IDs to be written 
on the selected satellite cartridges. A valid 
cartridge ID is a number between /0001 and /7FFF. 

Printout 

F FFF TTTT NOT DONE 
or 
COMPLETE 
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where 



where 



FFFF is the FROM ID 

TTTT is the TO ID 

NOT DONE is printed if a selected cartridge is not 

found on the system. 

One line is printed for each cartridge ID that is changed 
(maximum 4). 



COPY (Disk Copy) 

This program copies the contents (except the defective 
cylinder table and the cartridge ID) of one cartridge onto 
another. The copy ID (word 5 of sector @IDAD) is incre- 
mented by one on the destination cartridge. The cart- 
ridge to be copied onto must have previously been initi- 
alized (see DISC or DCIP). 

The calling sequence for COPY is: 



/■/■ .X.E.Q ■fro.p.y. ■ ■ i ■ ■ i t i i i 



afei.aF.iiD.l.jiT.i.niij.F.r.Oiz.-ir.i.D.Z, 



3 4' 7 « 



31 32 33 34 ; 



'I' 



I I I I I I I I I I ' ' ' ' ' ' ' ' 



f iTiDmijiTiIinn'li 



I I 1 I I I 



II 



where 

FID1 through FIDn are the IDs of the cartridges 
to be copied, 

TID1 through TIDn are the IDs of the cartridges 
onto which the copies are to be made. 

If multiple copies are to be made from a single 
master, FID1 through FIDn will all contain the same ID. 

If a system cartridge from a system with a different 
configuration is copied, it will be necessary to reconfigure 
the cartridge before a Cold Start can be performed (see 
System Reload) . 

Printout 

FFFF TTTT NOT DONE 
or 

COMPLETE 
or 

NOT PRES 
or 
NO. ERROR 



FFFF is the FROM ID 

TTTT is the TO ID 

NOT PRES indicates that the ID requested was not 

found. 

NO. ERROR indicates that the ID requested exceeded 

/7FFF. 

One line is printed for each copy requested on the *ID 
record. The printout occurs at the end of the job. 



ADRWS (Write Sector Addresses in Working Storage) 

This program, linked to from DUP on detection of the 
DUP control record, DWADR, writes the sector address 
on each sector of Working Storage of the disk cartridge 
specified in the DWADR control record (see *DWADR 
in DUP Control Records) . ADRWS is intended for sys- 
tem use only. 



DLCIB (Delete Core Image Buffer) 

This program deletes the CIB from a non-system 
cartridge. If a User Area is defined, it is moved two 
cylinders closer to cylinder 0. The new addresses of 
disk areas moved as the result of the deletion of the 
CIB are reflected in D COM on the master cartridge, 
on the non-system cartridge from which the CIB is 
deleted, and in COMMA. 

The calling sequence for DLCIB is: 



1 > 3 4 5 4 7 1 ♦ 10 II 12 13 14 15 IS 17 13 1 


) 20 21 22 23 24 2 


26 27 


2> 29 30 31 32 33 34 35 ! 


/■/. ,y.£,a iDiLidiiS. 


1 1 1 1 1 1 




1 1 1 1 1 1 1 1 


(fcliDiCiXiA'iTi i i i i i i i i i i i 






1 1 1 1 1 1 1 1 


itti i i ■■ ■ ■■ it ■ t iii 


1 1 1 1 1 1 




1 1 1 1 1 1 1 1 




1 1 1 1 1 1 




1 1 1 1 1 1 1 1 


i iii i i i i 


1 1 1 1 1 1 




1 1 1 1 1 1 1 1 











where 



CART is the ID of the non-system cartridge from 
which the CIB is to be deleted. 



Printout 

CART UA/FX 
XXXX YYYY 

or 

XXXX ERROR 



FPAD 

NNNN 
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where 



System Program Maintenance (Patch) Control Record 



XXXX is the cartridge ID 

YYYY is the User Area sector address 

NNNN is the File Protect Address 

ERROR is printed if the CIB was not deleted 

(cartridge not found on system or cartridge not 

specified on JOB card) 



Each Monitor program phase to be changed requires a 
patch control record. If MODIF determines in analyzing 
SLET that the FORTRAN Compiler or the Assembler has 
been voided from the disk, modifications to these pro- 
grams are not made; however, the version and modifi- 
cation levels for these programs are updated in DCOM. 
The format of the patch control record is as follows. 



MODIF--SYSTEM MAINTENANCE PROGRAM 

Included in the System Library is a system maintenance 
program, MODIF, that provides the user with the ability 
to update the Monitor system on the master cartridge. 
This program makes changes to the version and modi- 
fication level word in DCOM, and can be used to update 
both System Programs and/or the System Library. A 
card deck or paper tape containing corrections to update 
the Monitor system to the latest version and modifica- 
tion level is supplied by IBM. Every modification must 
be run to update the version and modification level, even 
if the affected program has been deleted from the system. 

NOTE : The replacement of a system program phase that 
contains reload entries (references to SLET generated 
by the System Loader during an initial or reload opera- 
tion) cannot be performed by MODIF. MODIF does not 
update the System Reload Table. The replacement 
phase must be loaded by a system reload. 

The calling sequence for MODIF is: 



2 3 4 5 6 7 8 



23 2* 23 26 27 28 29 30 31 32 33 34 35 



/■/■ ■X.gifl, Mf>n,I,F, 



I I I I I I I 



I I I 



I I I I I I I I II 



t 



I I > I I I I I I I I I I I I I I I I I I I I I I I I I I I I I 



System Program Maintenance 

Typical input for System Program update is shown in 
Figure 12. 




*MON 



// XEQ MODIF 



\L 



■j~ 



■ Next Monitor Control 
Record 



— MODIF Define End Record 
Following System Program 

'Maintenance Control Records 
and Data Records (if any). 



"Data Records 



System Program Maintenance 

Control Record 

'System Maintenance Program Call 



Card 






Column 


Contents 


Notes 


1-5 


3MON 


These characters identify a system 
patch to the FORTRAN Compiler, 
Assembler, DUP, Supervisor, Core 
Load Builder, System Device Sub- 
routines 1 -, or Core Image Loader 


5 


blank 




6-8 


vmm 


The version (v) and modification level 
level (mm) are specified in hexa- 
decimal. 


9 





Reserved 


10 


blank 




11-14 


XXXX 


The SLET ID of the Monitor program 
phase to which the patch is to be 
made is specified in hexadecimal. 
0000 indicates an absolute patch (see 
columns 28-31, 33-36). 


15 


blank 




16-19 


nnnn 


"nnnn" specifies (in hex) the number 
of patch data records following this 
patch control record. 


20 


blank 




21 


Bar H 


This character identifies the format 
of the patch data records (binary 
system format or hex patch format) 


22 


blank 




23-26 


PPPP 


"PPPP" specifies (in hex) the total 
number of patch control records to be 
processed. This parameter is re- 
quired on the first patch control 
record only. ^ 


27 


blank 




28-31 


dsss 


The drive code (d) and sector ad- 
dress (sss) of the program to be 
patched are specified in hexadeci- 
mal. This field is used only when 
the SLET ID (columns 11-14) is 0. 


32 


blank 




33-36 


cccc 


"cccc" specifies (in hex) the core 
address of the first word of this sector. 
This field is used only when the 
SLET-ID (columns 11-14) is 0. 3 


37-80 


Not used 




Notes 






1. Modii 


ications to subro 


utines in the System Device Subroutine 


Area 
and S 


must be made w 
TORE. 


ith a fMON patch, not a *SUB DELETE 


2. AMC 


DIF job may pei 


form both System Program and System 


Librai 


y maintenance | 


see System Library Maintenance). In 


such 


i case the numbt 


it in columns 23-26 must include the 


*SUB 


card in the coun 


t. Only one subroutine control record 


is allowed in any MODIF job, and it must be the last MODIF 


control record (not counting // DEND) in the stacked input. 


3. Core 


addresses can be 


obtained from the microfiche listing. 



Figure 12. Layout of an Input Deck for a System Program 
Update 



Patch Data Record Formats 

Patch Data Records may not contain CALLs or LIBFs, 
nor will the relocation indicators be used. 
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Binary System Format . 



System Library Maintenance (Subroutine) 
Control Record 



Word 

1 

2 

3 

4-9 

10-54 

55-60 



Contents 



Location 

Checksum 

Type Code (first 8 bits) 00001010 

Relocation Indicators 

Data words 1 through 45 

ID and sequence number or may be blank 



Hex Patch Format. 



Card 






Column 


Contents 


Notes 


1-4 


aaaa 


"aaaa" specifies (in hex) the core 
address (origin) of the patch. Each 
patch record must have a core 
address. 


5 


blank 




6-9, 




Each 4 -column field contains one 


11-14, 




word of patch data (in hex). Up to 


16-19, 




13 words of patch data can be speci- 


etc. 




fied per record. A blank column 
follows each word. 


66-68, 






73-80 


Not used 





Hex patch cards may contain ID/sequence numbers. 
Zeros must be punched as leading blanks will not be 
assumed. 



System Library Maintenance 

Changes to the System Library require the deletion of 
the old program and the storing of the new one. 
MODIF updates the version and modification level word; 
the actual operation is performed by a DUP DELETE 
operation, followed by a DUP STORE operation. 

Typical input for System Library maintenance is 
shown in Figure 13. 



Only one subroutine control record may appear in a 
MODIF job; however, any number of DELETES and 
STORES may be performed with that control record. 
System Library maintenance may also be performed 
concurrently with System Program maintenance (see 
note 2, columns 23-26 of *MON card). 

The format of a subroutine control record is as 
follows 



Card 






Column 


Contents 


Notes 


1-4 


*SUB 


These characters identify a system 
patch to the System Library. 


5 


blank 




6-8 


vmm 


The version (v) and modification 
level (mm) are specified in hexa- 
decimal. 


9 





Reserved 


10-15 


blank 




16-19 


rmrm 


"nnnn" specifies (in hex) the number 
of deletes and stores to be processed. 


20-80 


Not used 





All Maintenance 

Define End Record 

All MODIF jobs must end with a card punched as follows. 



Card 
Column 


Contents 


Notes 


1-7 
8-80 


//bDEND 
Not used 





This card terminates MODIF execution and passes 
control to the Supervisor. 




Next Monitor Control Record 



MODIF Define End Record 



Next DELETE and STORE and New 
Version of System Library Program, . . 

New Version of System 
Library Program XXXXX 



DUP Control Records 



System Library Maintenance 
Control Record 



System Maintenance 
Program Call 



Figure 13. Layout of an Input Deck for a System Library Update 



Operating Procedures 

The card deck or paper tape supplied by IBM is to be 
run as a Monitor job. 

When a modification is completed successfully, the 
following messages are printed on the principal printer. 

MODIF EXECUTION OWXX 
MODIF TERMINATION OYZZ 

where 

WXX is the old version and modification number, and 
YZZ is the new version and modification number. 
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MODIF Error Messages 



MODIF Example 



If an error occurs during MODIF execution, an error 
message is printed on the principal printer. The 
format of the error message is as follows. 

ERROR* XXXX XXXX 

Following the printing of the error message, the system 
will WAIT. All MODIF errors and their recovery pro- 
cedures are listed in table 6 . 



The purpose of the following example is to change one 
instruction in the 1134/1055 System Subroutine. The 
SLET ID of this subroutine is /0091. 



Address 
(from assembly listing) 

/0023 



Change From 
/0000 



Change To 
/7002 



If the new modification level is 8, the following control 
and data cards must be punched by the user. 



Table 6. MODIF Errors and Recovery Procedures 



Error 
Number 


Description 


Recovery Options* 


First Hex Number Printed 


Second Hex Number 
Printed 


1 


Invalid patch control record 
(*MON or *SUB) 


A. Correct error and reread from corrected patch 

control record. (If the error has occurred 
on the first patch control record, restart 
the modification.) 

B. Terminate modification, CALL EXIT. 






2 


Checksum error on binary 
patch data record. 


A. Rechecksum and reread from preceding patch 

control record. (If the error has occurred 
on the first patch control record, restart 
the modification.) 

B. Terminate modification, CALL EXIT. 

C. Reread card in error (cards may be out 

of order). 


Amount of checksum difference. 


Number of binary records 
read after patch header 
(including record in error). 


3 


Invalid hex data record. 


A. Correct error and reread from preceding patch 

control record. 

B. Terminate modification, CALL EXIT. 

C. Reread card in error. 






4 


Change level error. 


A. Correct error and reread from corrected patch 

control record. 

B. Terminate modification, CALL EXIT. 


Present version and modification 
level (from DCOM on disk). 


Change level of version and 
modification (from patch 
control record). 


5 


New change level lower 
than current level. 


A. Correct error and reread from corrected patch 

control record. 

B. Terminate modification, CALL EXIT. 

C. Reduce level and continue. 


Present version and modification 
level (from DCOM on disk). 


Change level of version and 
modification (from patch 
control record). 


6 


Monitor control record or 
// DEND card read before 
required number of patches 
read. 


A. Read new patch header. 

B. Terminate modification, CALL EXIT. 


Number of patches not installed. 




7 


DCOM configuration indica- 
tors do not agree with SLET 
or, Required system I/O 
routine missing. 


A. Restart MODIF execution. 

B. Terminate modification, CALL EXIT. 


Contents of Accumulator when 
error was detected . 


Address +2 from which error 
branch was executed. 


8 


DUP control record errors 
(DELETES or STORES). 


Print error indicators and WAIT. 
Press START to continue. 


XXYY where XX is the number 
of DUP errors detected and 
YY is the number of DUP 
control records processed (see 
DUP error printout). 


Number of DUP control 
records specified on *SUB 
patch control record. 


9 


SLET ID not found. 


Print error indicators and WAIT. 
Press START to read patch data cards with- 
out processing and read new control record. 


SLET ID in question. 




A 


Patch exceeds space allotted 
on disk for this phase. 


Print error indicators and WAIT. 
Press start to read patch data cards without 
processing and read new control record. 


High core patch address. 


High core SLET address. 


B 


// DEND card not found 
(patches completed but 
version and modification 
level in DCOM not updated 


Press START to CALL EXIT or, Rerun modification 
with //DEND card. 







Set console entry switches as desired for errors 1-7 and press START. 
No switches on - recovery A 
Switch on - recovery B 
Switch 15 on - recovery C 
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System Program Maintenance Control Record 



12 3 15 6 78 9 10 II 12 13 14 15 1617 IS 19 20212223 2425 26 27 28 29 30 JIM 3334 353437 



l*H0M .20801 Q Cftl QQL1 .H QQQL ■ . 

Patch Data Record: Hex Patch Format 



I 2 3 4 5 6 7 8 ? 10 II 12 13 14 15 16 17 18 19 2021 22 23 24 25 26 27 28 29 30 3132 33 34 35 36 37 



ifte&a. .Too * 



These two cards together with the Monitor control 
cards shown in Figure 12 will perform the required 
modification. 

At completion of execution, the following messages 
will print on the principal printer. 

MODIF EXECUTION 0207 The execution of 

MODIF has been 
initialized on version 
2 level 7 

MODIF TERMINATION 0208 The patch has been 



installed and the new 
level is 8. 



PAPER TAPE UTILITY (PTUTL) 



This program accepts input from the Keyboard or the 
1134 Paper Tape Reader and provides output on the 
Console Printer and/or the 1055 Paper Tape Punch. 

PTUTL allows changes and/or additions to FORTRAN 
and Assembler language source records as well as 
Monitor control records. 

The calling sequence for PTUTL is: 



1 2 3 4 5 6 7 % 9 10 11 12 13 1 


4 IS 14 17 H 


IV 70 21 22 23 2 


4 25 26 27 20 29 3 


31 32 33 


* 35 3 


/i/i iJfifiQi \PiT\LhTiU i i i i i i i i i i i i i i i i i i i i i i i 


1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 II 


1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 


1 1 1 1 1 1 1 1 1 1 1 I 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 















Operating Procedure 

If paper tape is the principal input, select the appro- 
priate initializing procedure listed below and continue. 

If the Resident Monitor is in core: 

• Place the PTUTL execute tape in the paper tape 
reader. 

• Press PROGRAM START. 

If the Resident Monitor is not in core: 

• Place the cold start paper tape record in the 
paper tape reader. 



• Press IMM STOP, RESET, and PROGRAM LOAD 
on the console. 

• Place the PTUTL execute tape in the paper tape 
reader. 

• Press PROGRAM START. 

The paper tape utility program is loaded into core and 
then comes to a WAIT with /llll displayed in the Accum- 
ulator. This WAIT allows the operator to ready the 
Console Printer, paper tape reader, and paper tape 
punch. The user should punch a leader of delete codes 
on the paper tape punch. 

At this time, the user can select the desired program 
options by turning on the appropriate console entry 
switches. Figure 14 shows the PTUTL console entry 
switch logic in flowchart form. 



Console Entry 
Switch On 



Option 





1 

2 

3 

14 



Print record after reading 
Read paper tape records from 1134 
Accept Keyboard input 1 
Punch paper tape records on 1055 
WAIT after punching with /3333 in the 
Accumulators 
15 WAIT after printing with /2222 in the 

Accumulator^ 
All switches off CALL EXIT 3 



NOTES: 

1. The keyboard input option uses TYPEO; therefore 
all features of that subroutine apply to PTUTL. 

• The input record cannot exceed 80 characters. 

• Pressing the backspace key cancels the last 
character entered. 

• Pressing the ERASE FIELD key cancels the 
entire record and allows the user to restart. 

• Pressing the EOF key indicates that the record 
is complete. The Keyboard is released and 
the program continues. 

2. Keyboard input will replace the last paper tape 
record read if console entry switch 2 is turned on 
prior to pressing PROGRAM START. 

3. The test for exit is made just before an input 
record is read; therefore, a convenient way to 
branch out of PTUTL is to perform a WAIT after 
punching the last record desired (console entry 
switch 14 on). Turn off all console entry switches 
and press PROGRAM START. A CALL EXIT 
will be executed. 
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Paper Tape Not-Ready WAITs 



Condition 


Indie ation 


Recovery Procedures 


Paper tape 


Program WAITs 


Ready reader if additional tape is to 


reader not 


with /3005 in 


be read. Set the console entry 


ready- 


the Accumulator 


switches as desired and press 
PROGRAM START. 


Paper tape 


Program WAITs 


Ready the paper tape punch and 


punch not 


with /30O4 in the 


press PROGRAM START. 


ready 


Accumulator 


To repunch the record that was 
being processed when the not-ready 
occurred, set console entry 
switches 1 and 2 off (to prevent 
another record from being read), set 
switches 3 and 14 on (punch a rec- 
ord and WAIT with /3333 in the 
Accumulator), and press PROGRAM 
START. After the record is punched, 
return the console entry switches to 
the original configuration and press 
PROGRAM START. 



Example 

Assume that the following records appear on a tape. 

//JOB 

// *(comments) 

//ASM 

//DUP 

ASM Control Records 

Source Program 

The user now desires to alter the comments record, 
insert a // PAUS record after the comments record, 
and delete the // DUP record. The procedure is as 
follows. 

1. Load and execute PTUTL. The program will 
WAIT with /Ull in the Accumulator. 

2. Load the source tape in the paper tape reader 
and ready the paper tape punch and Console 
Printer. Make a leader of delete codes on the 
punch. 

3. Turn on console entry switches 1, 3, and 14. 

4. Press PROGRAM START. 

5. The //JOB record will be read, reproduced, and 
the program will WAIT with /3333 in the Accumu- 
lator. 



6. Turn on console entry switches 0, 1, 2, 3, 14, 
and 15. 

7. Press PROGRAM START. 

8. The comments record in the source tape will be 
read and printed on the Console Printer. The pro- 
gram will WAIT with /2222 in the Accumulator. 

9. Press PROGRAM START. The Keyboard will be 
selected (PROCEED light on) and the program will 
WAIT with /3333 in the Accumulator. 

10. Enter the new comments record in the proper format. 

11. Press the EOF key on the Keyboard. 

12. The new comments record will be punched on the 
tape, replacing the old record. The program will 
WAIT. 

13. Turn off console entry switch 1. Press PROGRAM 
START. The Keyboard will be reselected. 

14. Enter the // PAUS record from the Keyboard and 
press EOF. 

15. Turn off the console entry switches 0, 2, and 15. 
Turn on switch 1. Leave switches 3 and 14 on. 

16. Press PROGRAM START. 

17. The // ASM record will be read and reproduced 
on the punch. The program will WAIT with /3333 
in the Accumulator. 

18. The next record //DUP, is to be deleted; 
therefore, switches 0, 1, and 15 should be set on, 
all other console entry switches should be set off. 

19. Press PROGRAM START. 

20. The // DUP record will be read and printed but 
not punched. The program will WAIT with /2222 
in the Accumulator. 

21. Leave the sense switches at the present setting 
and press PROGRAM START. The next record 
on the input tape will be read into the I/O buffer, 
overlaying the // DUP record. 

22. Turn on console entry switches 1 and 3, all others 
off. 

23. Press PROGRAM START. 

24. The remainder of the source tape will be read in 
and reproduced, record for record. 

25. When the paper tape reader goes not-ready at the 
end of the source tape, the program will again 
WAIT with /3005 in the Accumulator. Set all 
console entry switches off and press PROGRAM 
START. A CALL EXIT will be executed. 
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Figure 14. PTUTL Console Entry Switch Options 
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SYSTEM LIBRARY UTILITY SUBROUTINES 



Also included in the System Library are a group of 
subroutines that perform utility functions for the 
Monitor system. 

The utility subroutines are: 

SYSUP - DCOM Updating Subroutine 
RDREC - Read *ID Record Subroutine 
CALPR - Call System Print Subroutines 
FSLEN - Fetch Phase ID (FSLEN) or Fetch 

System Subroutine (FSYSU) 
FLIPR - LOCAL/SOCAL Overlay Subroutine 

SYSUP can be called by the user. The other utility 
subroutines are for system use only. 



SYSUP (DCOM Update) 

Whenever a core load requires changing disk cartridges 
during the job, SYSUP must be called to update DCOM 
on the master cartridge (logical drive 0) with the IDs 
and DCOM information from all satellite cartridges 
mounted on the system that are specified in the list or 
array in the calling sequence. 

The Assembler language calling sequence for 
SYSUP is: 



28 29 30 31 32 
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where 

a is the name of the last item in an array containing 
the IDs of the satellite cartridges on the system. 

The last item in the array may be zero, in which case 
the master cartridge is the same as that defined for the 
previous job. For example: 

CALL SYSUP (A(5) ) 

The array is stored in reverse order 

A(5) DC 
A(4) DC 
A(3) DC 
A(2) DC 
A(l) DC 

Thus A(5) is the entry for logical 0, the master cartridge. 
A is a one-word integer. 

NOTE: The list or array must be no longer than five 
words. It may be shorter. If a list or array shorter than 
five words is specified, the Assembler array must be 
terminated with an ID of all zeros (all zeros in the 
first entry will not terminate the array). 

The FORTRAN array must be started with an ID of 
all zeros (all zeros in the last entry will not terminate 
the array). For example, a three-cartridge FORTRAN 
array would be specified as (A (4)) with A(l) having a DC 
of all zeros . 



Printout 



where 

a is the ID of the master cartridge on the system, 
b is the ID of the first satellite cartridge on the 

system, 
c is the ID of the second satellite cartridge on the 

system, 
d is the ID of the third satellite cartridge on the 

system, 
e is the ID of the fourth satellite on the system. 

a may be zero, in which case the master cartridge 
is the same as that defined for the previous job. 
The FORTRAN calling sequence for SYSUP is: 



The following error messages may be printed by SYSUP 
(SYSUP error messages are also listed with the Super- 
visor Errors in Appendix A). 

XXXX IS NOT AN AVAILABLE CARTRIDGE ID 

A specified cartridge is not in the system. 

XXXX IS A DUPLICATED SPECIFIED CARTRIDGE ID 

The same ID appears more than once in the list 
or array in the calling sequence. 

XXXX IS A DUPLICATED AVAILABLE CARTRIDGE ID 

Two or more disks (specified in the calling sequence) 
have the same cartridge ID. 
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An error printout is followed by termination of 
execution. 



CALPR (Call System Print Subroutine) 

This subroutine calls FSLEN to bring the system print 
subroutines into core storage for the purpose of printing 
one or more lines on the principal printer. This sub- 
routine is intended for system use only. 



RDREC (Read *ID Record) 

This subroutine is called by the Disk Maintenance 
Programs to read the *ID record. The *ID record is 
printed on the principal print device. This subroutine 
is intended for system use only. 



FSLEN (Fetch Phase IDs and Fetch System Subroutine) 



This subroutine has two entry points: FSLEN and 
FSYSU. 



FSLEN — Fetch Phase IDs from SLET 

This entry point obtains the requested phase ID 
headers from SLET. 

FSYSU — Fetch System Subroutines 

Fetches the requested system subroutine into core 
storage. This subroutine is intended for system use 
only. 



FLIPR (LOCAL/SOCAL Overlay) 

The Monitor system library contains a flipper subroutine 
(FLIPR), which is used to call LOCAL (load-on-call) 
and SOCAL (system-load-on-call) subroutines into core 
storage. FLIPR is used withDISKZ, DISK1, or 
DISKN. 

FLIPR passes the total word count to DISKZ, DISK1, 
or DISKN to fetch the LOCAL. When a LOCAL subrou- 
tine is called, control is passed to the flipper, which 
reads the LOCAL into core storage if it is not already in 
core and transfers control to it. All LOCALS in a given 
core load are executed from the same core storage loca- 
tions; each LOCAL overlays the previous one. FLIPR 
fetches SOCALs in the same manner as LOCALS. 
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SYSTEM GENERATION AND SYSTEM RELOAD 



The steps required to generate a complete multi -drive 
Monitor system are as follows. 

• Initialize all disk cartridges using the stand-alone 
program DCD?. 

• Punch an initial load MODE control record and 
system configuration deck (or tape) and insert these 
cards in the System Loader deck. (These records 
are prepared using the stand-alone utility PTUTL 
in the paper tape system). 

• Use the System Loader to load the Monitor system 
to disk. 

• Perform a cold start. 



The complete Monitor system is now on-line and 
operational. 

Detailed instructions for initial load and reload of 
the card and paper tape Monitor system are listed below. 
All loading and reloading is performed by the System 
Loader. System Loader error messages are listed in 
Appendix A. 



Set the physical drive number of the drive containing 
the pre-load cartridge in console entry switches 
12-15 



Switches 12-15 off, drive 
Switch 15 on, drive 1 
Switch 14 on, drive 2 
Switch 15, 14 on, drive 3 
Switch 13 on, drive 4 



• Place the cold start card in the reader wired for 
IPL and ready the reader. 



If the IPL device is a 1442-6 or 7, place the blank 
cards directly behind the cold start card. 



If the IPL device is a 2501 and the system, has a 
1442, place the blank cards in the 1442 but do not 
ready the 1442. Make the 1442 ready when the 
the system WAITs after the cold start program is 
loaded. 



CARD SYSTEM PRE-LOAD 

The Monitor system for the card user is supplied on a 
disk cartridge and must be dumped to cards before the 
Initial Load procedure can be started. The dump is 
accomplished by loading the Monitor 2 cold start card 
supplied with the cartridge. 



Operating Procedure 

• Place the pre-load cartridge on any drive on the 
system and ready the drive 



• With the console Mode switch set to RUN, press 
IMM STOP, RESET, and PROGRAM LOAD 

The cold start card is read in and punching begins. If 
the punch is a 1442-5, the first card will be blank. 
Throw the blank card away. If the punch runs out of 
cards or is not- ready as in the latter case listed above, 
the system executes a standard pre-operative WAIT 
at $PRET. Ready the punch unit and press PROGRAM 
START to continue. If a punch or feed error occurs, 
refer to the writeup on 1442 Errors and Operator Pro- 
cedures in the System Library section of this manual. 
The dump of the Monitor system requires approxi- 
mately 3000 cards. 
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INITIAL LOAD (CARD SYSTEM) 



The user must prepare an initial load mode control card 
and system configuration cards (REQ) and insert these 
cards into the System Loader deck. These System Loader 
control cards must be present before the Monitor system 
can be loaded. An optional CORE card may also be used. 
See Figure 15 for the placement of these cards. The 
card formats are listed below. 



User-Punched System Loader Control Cards 

The following System Loader control cards are punched 
by the user (see Figure 15). 



Compiler can be deleted from the system through the use 
of the load mode control card. The load mode control 
card is placed behind the last card of the first part of 
the System Loader. 

The format of the user-punched load mode control 
card is as follows. 



Card 
Column 



1-4 



12 

13 



User Entry 



MODE 

I (initial load) or R (reload) 

A (do not load Assembler) or blank (load Assembler) 

F (do not load FORTRAN) or blank (load FORTRAN) 



Note: If FORTRAN and/or the Assembler are deleted they cannot be 

reloaded using the reload procedure. They must be loaded by an 
initial load. 



Load Mode Control Card. The load mode control card in- 
forms the system whether the operation is an initial load 
or a reload. In addition, the Assembler and/or FORTRAN 



System Configuration Cards (REQ). The system config- 
uration cards are user-punched REQ cards that identify 



User-Punched REQ 
Cards (CORE cai 
optional) 



User-Punched 
Load Mode 
Control Card 




System Loader - Part 1 
Columns 73-75 ID:DPl(with 
7 card Core Image Loader 
ID: DCL) 



Figure 15. IBM System Load 
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the system I/O devices that are a part of the user's 
system. If an REQ card specifies the 1442, columns 
15-20 of that card must contain the model number, as 
indicated on the REQ card format chart. 

The format of the REQ cards required by the System 
Loader are listed below. The user should punch only 
those cards that identify units on the system currently 
being generated. Punch one card for each device. Miss- 
ing or extraneous REQ cards may cause initial load op- 
erations to fail. The REQ cards must be placed between 
the SCON card and the TERM card in the IBM system 
deck. 

NOTES: 

1. Those I/O devices not listed on the following chart 
are initialized as part of the system. REQ cards 
are not required. 

2. The principal printer is defined as the fastest print- 
er entered on an REQ card. 



Device 


Card Columns 


1-3 


9-10* 




15-20 


1442 Card Read Punch or 


REQ 


1 


1442-5 




Card Punch 






1442-6 
1442-7 


whichever 
is applicable 


Paper Tape Reader and/or 


REQ 


3 


1134 




Punch 










2501 Card Reader 


REQ 


4 


2501 


Unit ID is 


1132 Printer 


REQ 


6 


1132 


optional 


1403 Printer 


REQ 


9 


1403 





•ISS numbers, right justified. Maximum entry number ISS 20. 



CORE Card (Optional). An optional user-punched control 
card CORE may be placed anywhere between the SCON 
and TERM cards in the IBM system deck. If this card 
is used, the calculated (actual) core size of the system 
is replaced by the core size defined in the CORE card. 
The format of the CORE card is as follows. 



User-Defined Core Size 


Card Columns 


1-4 


6-8 


4K 

8K 

16K 

32K 


CORE 
CORE 
CORE 
CORE 


04K 
08K 
16K 
32K 



IBM-Supplied System Loader Control Cards 

The following System Loader control cards are supplied 
with the IBM system (see Figure 15) and must be pres- 
ent in the IBM system deck on any system load. 



SCON and TERM Card. These cards (supplied with the 
card system), together with the user-punched REQ cards, 
make up the system configuration deck. The system con- 
figuration deck must be included in the System Loader for 
any system load or reload. The format of the SCON and 
TERM cards are listed below. 

SCON card, columns 1-4: SCON 
TERM card, columns 1-4: TERM 

Phase Identification Card (PHID). The PHID card con- 
tains the beginning and ending phase numbers of the var- 
ious programs in the IBM system deck. All numbers in 
the phase ID field of the PHID card are in ascending se- 
quence and in the order in which the system decks occur. 
The Resident Monitor and Cold Start Program have no 
phase IDs and are included in part 2 of the System Loader. 
The entries in the PHID card are loaded into the System 
Location Equivalence Table (SLET) and SLET is then used 
by the system as an internal directory to the Monitor pro- 
grams. 

The format of the PHID card is as follows. 



Card 
Columns 


Entry 


1-4 


PHD 


6-8 
10-12 


Phase IDs of first and last DUP phases 


14-16 
18-20 


Phase IDs of first and last FORTRAN Compiler phases 


22-24 
26-28 


Phase IDs of first and last Assembler phases 


30-32 
34-36 


Phase IDs of first and last Supervisor phases 


38-40 
42-44 


Phase IDs of firsTand last Core Load Builder phases 


46-48 
50-52 


Phase IDs of first and last System Device Subroutine 
phases 


54-56 
58-60 


Phase IDs of first and last Core Image Loader phases 


66-68 


Vxx (xx is the version number) 


70-72 


Mxx (xx is the modification number) 


73-80 


Card identification and sequence number 



TYPE 81 Card. During an initial load, the type 81 card 
causes the principal print device and the principal I/O 
device entries to be placed in SLET. The Disk Commun- 
ications Area (DCOM) and Location Equivalence Table 
(LET) are initialized and the Reload Table is established 
during an initial load. The D3M System Library is loaded 
following the reading of the type 81 card. The format of 
the type 81 card is as follows. 



Column 3: 
Column 4: 



6 punch 
1 punch 
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Operating Procedures 

• Initialize a cartridge using DCIP (see Disk Cartridge 
Initialization Program) 

• Prepare the required user-punched control records 
(see User-Punched System Loader Control Cards) 

• Remove the Cold Start card, the stand-alone 
utilities, and the sample programs from behind the 
System Library. 

After the disk cartridge has been initialized by DCIP 
and the user-punched System Loader control cards 
inserted in the IBM system deck, the Monitor system is 
ready to load. The complete system, ready for loading, 
is illustrated in Figure 15. 

The steps necessary to perform a system load are 
as follows. 



Switches 12-15 off, drive 
Switch 15 on, drive 1 
Switch 14 on, drive 2 
Switch 14, 15 on, drive 3 
Switch 13 on, drive 4 

With the console Mode switch set to RUN, press IMM 
STOP and RESET. 



• Place the IBM system deck in the hopper of the reader 
wired for initial program load (IPL). 



• Press reader START. If both a 2501 and a 1442 
model 6 or 7 are present, place the 1442 in a not- 
ready status. 



• Ready the selected disk drive 

• Ready the Console Printer and the principal printer 

• Set the physical drive number of the drive containing 
the initialized cartridge in console entry switches 
12-15. 



• Press PROGRAM LOAD on the console. 

After the type 81 card has been read, the Auxiliary 
Supervisor calls DUP directly to store the System Library. 
After the last program of the System Library has been 
stored, the Monitor system is on disk and can be made 
operational by a user-initiated cold start. 



76 



SYSTEM RELOAD (CARD SYSTEM) 



The Monitor programs are divided into phases so that if 
changes are made within a program, only the affected 
phase needs to be reloaded. As in initial load, the user- 
punched load mode control card and REQ cards are re- 
quired with the System Loader. The only difference is 
that the load mode control card for a reload must have 
an R in column 8. The programs or program phases 
being loaded by the reload procedure must be placed 
directly behind the IBM-supplied phase identification 
(PHID) card. 

When using a 2501 Card Reader, the double-buffering 
procedure in the System Loader requires a blank card 
following the type 81 control card. The message END 
RELOAD will be printed by the Console Printer when the 
reload is completed. 

If the Assembler or FORTRAN Compiler were de- 
leted on initial load or deleted by a DUP DEFINE VOID 
operation, they cannot be reloaded using the reload pro- 
cedure. They must be loaded by an initial load. 

A useful option provided by the reload function is the 
ability to reconfigure a system oartridge with different 
I/O devices. Reconfiguration will be necessary if a sys- 
tem cartridge is copied from a system with a different 
configuration. The reload deck listed below will perform 
this function. (To reconfigure only, place the Type 81 
card directly after the PHID card. ) 

• System Loader deck, part 1, with Core Image Loader 

• Load mode control card (R in column 8) 

• Resident Monitor/cold start deck 

• System Loader deck, part 2 

• System configuration deck: 

SCON card 

REQ cards | 

CORE card (optional) ) 
TERM card 

• PHID card 

• (Revised programs or program phases)* 

• Type 81 control card 
» Blank card 

*A11 decks must have phase ID numbers within the lim- 
its of the IDs listed on the PHID card. 

During a reload operation, loading terminates with 
the reading of the type 81 card, and the printing of 
END RELOAD. 



System reconfigured 
if desired 



Operating Procedures 

With the console Mode switch set to RUN, press PRO- 
GRAM STOP on the console. 

• Ready the selected disk drive. 

• Ready the Console Printer 



• Set the physical drive number of the drive containing 
the cartridge to be reloaded in console entry switches 
12-15. 

Switches 12-15 off, drive 
Switch 15 on, drive 1 
Switch 14 on, drive 2 
Switch 14, 15 on, drive 3 
Switch 13 on, drive 4 

• Press RESET on the console 

• Place the reload deck (see listing above) in the reader 
wired for IPL. 

• Press reader START. If both a 2501 and a 1442 mod- 
el 6 or 7 are present, place the 1442 in a not-ready 
status. 

• Press PROGRAM LOAD on the console. 

• Perform a cold start to make the revised Monitor 
system operational. 



System Program Phase Sector Break Cards 

In order to allow the user to load only a portion of a 
Monitor program, the programs are divided into phases, 
each identified by a sector break card. The user can 
load the revised phase using the reload procedure and 
then place the revised phase in the IBM system deck in 
place of the phase it replaces. 

The sector break cards identifying the phases of the 
IBM system programs are listed below. Sector break 
cards (see Appendix C) have a 1 punch in column 4. The 
version and modification level are punched in the cards 
starting at column 67 (VxMxx). 

Phase ID Starting in 

Number Program or Program Phase Name Column 73 



XX 


RESIDENT IMAGE 1 Part of 


ERI 




COLD START PROGRAM | System Loader 


EST 




DUP 




01 


DUP COMMON SUBROUTINES, CCAT 


J01 


02 


DUP CTRL RECORD PROCESSOR 


J02 


03 


DUP STORE PHASE 


J03 


04 


DUP *FILES, *LOCAL, *NOCAL PHASE 


J04 


05 


DUP DUMP PHASE 


J05 


06 


DUP DUMP LET/FLET PHASE 


J06 


07 


DUP DELETE PHASE 


J07 


08 


DUP DEFINE PHASE 


J08 


09 


DUP EXIT PHASE 


J09 


OA 


DUP CARD I/O INTERFACE 


J10 


OB 


DUP KEYBOARD INPUT INTERFACE 


JH 


OC 


DUP PAPER TAPE I/O INTERFACE 


J12 


OD 


DUP UPCOR PHASE SAVED BY DEXIT DURING 






STORECI 


J17 


OE 


DUP PRINCIPAL INPUT WITH KEYBOARD 


J17 


OF 


DUP PRINCIPAL INPUT W/O KEYBOARD 


J17 


10 


DUP PAPER TAPE I/O 


J17 


11 


DUP STORE CI 


J17 



System Generation and System Reload 77 



Phase 
Number 



12 



IF 
20 
21 
22 
23 
24 
25 
26 
27 
28 
29 
2A 
2B 
2C 
2D 
2E 
2F 
30 
31 
32 
33 
34 
35 
36 
37 
38 
39 

51 
52 
53 
54 
55 
56 
57 
58 
59 
5A 
5B 
5C 
5D 
5E 
5F 



Program or Program Phase Name 

DUP MODIF DUMMY PHASE 

FORTRAN Compiler 

FOR INPUT PHASE 

FOR CLASSIFIER PHASE 

FOR CHECK ORDER/STMNT NO. PH 

FOR COMMON SUBR OR FUNCTION PH 

FOR DIMENSION, REAL, INTEGER 

FOR REAL CONSTANT PHASE 

FOR DEFINE FILE, CALL LINK EXIT 

FOR VARIABLE, STMNT FUNC PHASE 

FOR DATA STATEMENT PHASE 

FOR FORMAT STATEMENT PHASE 

FOR SUBTRACT DECOMPOSITION PH 

FOR ASCAN I PHASE 

FOR ASCAN II PHASE 

FORDO, CONTINUE, ETC. PHASE 

FOR SUBSCRIPT OPTIMIZE PHASE 

FOR SCAN PHASE 

FOR EXPANDER I PHASE 

FOR EXPANDER II PHASE 

FOR DATA ALLOCATION PHASE 

FOR COMPILATION ERROR PHASE 

FOR STATEMENT ALLOCATION PHASE 

FOR LIST STATEMENT ALLOCATION 

FOR LIST SYMBOL TABLE PHASE 

FOR LIST CONSTANTS PHASE 

FOR OUTPUT I PHASE 

FOR OUTPUT H PHASE 

FOR RECOVERY (EXIT) PHASE 

ASSEMBLER 

ASM INITIALIZATION PHASE 

ASM CARD CONVERSION PHASE 

ASM DSF OUTPUT PHASE 

ASM INTERMEDIATE INPUT PHASE 

ASM END STATEMENT PHASE 

ASM ASSEMBLY ERROR PHASE 

ASM CONTROL CARDS 1 

ASM CONTROL CARDS 2 

ASM DUMMY PH (SYST SYMBOL TBL) 

ASM SYMBOL TABLE OPTIONS PHASE 

ASM EXIT PHASE 

ASM PROG HEADER MNEMONICS PH 

ASM FILE STATEMENT PHASE 

ASM COMMON SUBROUTINES, ASCOM 

ASM PROG CONTROL MNEMONICS PH 



ID Starting in 


Phase 


Column 73 


Number 


J17 


60 




61 


KOI 


62 


K02 


63 


K03 


64 


K04 


65 


K05 


66 


K06 


67 


K07 




K08 


6E 


K09 




K10 


6F 


Kll 




K12 




K13 


70 


K14 


71 


K15 




K16 


78 


K17 


79 


K18 


7A 


K19 


7B 


K20 


7C 


K21 


7D 


K22 


7E 


K23 


7F 


K24 


80 


K25 


81 


K26 


82 


K27 


83 


M01 


8C 


M02 


8D 


M03 


8E 


M04 


8F 


M05 


90 


M06 


91 


M07 


92 


M08 


93 


M09 


94 


M10 


95 


Mil 


96 


M12 


97 


M13 


98 


M14 




M15 


A0 




Al 



Program or Program Phase Name 

ASM IMPERATIVE STATEMENTS PH 

ASM DECML XFLC PROCESSING PH 

ASM DECIMAL CONVERSION PHASE 

ASM PROG LINKING PHASE 

ASM DMES PROCESSING PHASE 

ASM PUNCH CONVERSION PHASE 

ASM INTERMEDIATE DISK OUTPUT 

ASM SYMBOL TABLE OVERFLOW 

SUPERVISOR 

SUP PHASE 1 - MONITOR CONTROL 

RECORD ANALYZER 

SUP PHASE 2 - XEQ CONTROL AND 

PROCESSOR SUPERVISOR CONTROL 

RECORD PROCESSOR 

SYSTEM DUMP-CORE-TO-PRINTER 

AUXILIARY SUPERVISOR 

CORE LOAD BUILDER 

CORE LOAD BUILDER, PHASE 0/1 

CORE LOAD BUILDER, PHASE 2 

CORE LOAD BUILDER, PHASE 3 

CORE LOAD BUILDER, PHASE 4 

CORE LOAD BUILDER, PHASE 5 

CORE LOAD BUILDER, PHASE 6 

CORE LOAD BUILDER, PHASE 7 

CORE LOAD BUILDER, PHASE 8 

CORE LOAD BUILDER, PHASE 9 

CORE LOAD BUILDER, PHASE 10 

CORE LOAD BUILDER, PHASE 11 

CORE LOAD BUILDER, PHASE 12 

SYSTEM DEVICE SUBROUTINES, DISK I/O 

SYS 1403 

SYS 1132 

SYS CONSOLE PRINTER 

SYS 2501 

SYS 1442 

SYS 1134 

SYS KEYBOARD 

SYS 2501/1442 CONVERSION 

SYS 1134 CONVERSION 

SYS KEYBOARD CONVERSION 

DISKZ 

DISK1 

DISKN 

CORE IMAGE LOADER 

CORE IMAGE LOADER, PHASE 1 

CORE IMAGE LOADER, PHASE 2 



ID Starting in 
Column 73 

M16 
Ml 7 
Ml 8 
Ml 9 
M20 
M21 
M22 
M23 

N01 

N01 



N02 
N03 

OCB 
OCB 
OCB 
OCB 
OCB 
OCB 
OCB 
OCB 
OCB 
OCB 
OCB 
OCB 

PMN 
PMN 
PMN 
PMN 
PMN 
PMN 
PMN 
PMN 
PMN 
PMN 
PMN 
PMN 
PMN 

PMN 
PMN 
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INITIAL LOAD (PAPER TAPE SYSTEM) 



The tapes constituting the complete Paper Tape Monitor 
System, including the user-punched control record tapes 
are'listed below. 



punched control cards (see Initial Load (Card System) ). 
The Load Mode Control record and System Configuration 
records must be prepared by the user. If these tapes are 
not prepared correctly, the System Loader will print an 
error message during system load (see Appendix A). A 
user-punched CORE record is optional. 



Tape 
Number Description 

1 System Loader, Part 1 

Load Mode Control Record (User-punched) 

2 System Loader, Part 2, with Resident 
Monitor and Cold Start 

System Configuration Records (User-punched) 

3 Phase Id. (PRTD) Control Record 

4 Disk Utility Program 

5 FORTRAN Compiler 

6 Assembler 

7 Supervisor, Core Load Builder, System I/O 
Subroutines, Core Image Loader 

8 End of System Tapes Control Record 
(Type 81 record) 

9 Standard LIBFs and CALLs 

10 Extended Precision LIBFs and CALLS 

11 Common LIBFs and CALLs 

12 ILS, ISS, Conversion and Utility Subroutines 

13 Plotter Subroutines 

14 SCA Subroutines 

15 Cold Start Paper Tape Record 

16 DCIP Disk Cartridge Initialization Program 

17 PTUTL Paper Tape Utility Program 

18 Paper Tape Reproducing Program 

19 1132/1403 Printer Core Dump from /01E0 

20 Console Printer Core Dump 

Tape 15 is used to initialize the Monitor system after 
it is loaded. Tapes 16-20 are stand-alone utilities and 
are not loaded as part of the Monitor System; however, 
PTUTL and DCIP are used during the loading process. 
Tapes 21 and 22 are the Monitor system sample programs 

NOTE: If the FORTRAN Compiler and/or the Assembler 
are not be be loaded during an initial load, the corres- 
sponding tapes (7 and/or 8) need not be read. If the 
FORTRAN Compiler and/or the Assembler are not 
loaded, they cannot be loaded using the reload proce- 
dure. They must be loaded by an initial load. 



System Loader Control Records 

With the exception of the Load Mode Control Record 
and the System Configuration Records, all of the paper 
tape control records needed to load the Paper Tape 
Monitor System to disk storage are supplied to the 
user by IBM. These control records have the same 
functions as the corresponding IBM-supplied and user- 



Preparation of Load Mode and 
System Configuration Control Tapes 

Paper tape control records must be punched in PTTC/8 
(Perforated Tape Transmission Code). The formats 
are the same as the previously -described card formats. 
Paper tape control records must be separated by one NL 
(new line) control character. A control record that im- 
mediately follows paper tape data not followed by an NL 
code must be preceded by one NL code. Delete codes 
may precede or follow this NL code. 

To initially generate a system cartridge the necessary 
control records can be punched using a stand-alone paper 
tape utility program (PTUTL). 

To load the PTUTL program tape, perform the follow- 
ing steps: 

• Place the PTUTL tape in the Paper Tape Reader, 
positioning the tape so that one of the delete codes 
beyond the program ID in the tape leader is under 
the read starwheels. 

• With the console Mode switch set to RUN, press IMM 
STOP, RESET, and PROGRAM LOAD. 

• PTUTL is read in and the program WAITs with /llll 
in the Accumulator. 

• Set console entry switches 2 and 3 on. Functions 
requested by these switches are: 

Switch 2 -accept Keyboard input 

Switch 3 -punch records on the 1055 Paper Tape Punch 

NOTE: Complete operating procedures for PTUTL 
are contained in the writeup for the System Library 
version of the Paper Tape Utility Program (see Paper 
Tape Utility (PTUTL). 



• Ready the Paper Tape Punch. Be sure to punch a 
leader of delete codes. 

• Use the Keyboard to prepare the user-punched System 
Loader control records. 
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Paper Tape Load Mode Record 
Steps in preparation are: 

• Write MODE using Keyboard input. 

• Space 3 times. 

• Write I or R for initial load or reload operation. 

• Space 3 times. 

• If the Assembler is not to be loaded write A, 
otherwise space 1. 

• If the FORTRAN Compiler is not to be loaded 
write F, otherwise space 1. 

• Press EOF on the Keyboard if no mistakes were 
made, otherwise press ERASE FIELD and repeat 
the above procedure. 

• Create a trailer (and new leader) of delete codes on 
the paper tape punch. 

Paper Tape System Configuration Tape 
Steps in preparation are: 

• Write SCON using keyboard input. 

• Press EOF to end the SCON record. 

• Write REQ 

• Space 6 (or 5 in cases of a 2 digit ISS number) 

• Write the ISS number for an I/O device to be con- 
figured into the system (see System Configuration 
Cards (REQ) for the required ISS numbers). 

• Press EOF. Repeat the preceding three steps until 
all necessary REQ records have been punched. 

• A CORE record may be added if desired. Its format 
is identical to the card system description. 

• Write TERM 

• Press EOF to end the TERM record and Configuration 
tape. 

• Create a trailer of delete codes on the Paper Tape 
Punch. 



Operating Procedure 

• Initialize a cartridge using DCIP (see Disk Cartridge 
Initialization Program ) 

• Prepare the required user-punched control records 
(see Preparation of Load Mode and System Configura- 
tion Control Tapes) 

After the disk cartridge has been initialized by DCIP and 
the user-punched System Loader control record tapes 
generated, the Monitor system is ready to load. 

The steps necessary to perform a system load are as 
follows. 

• Ready the selected disk drive 

• Ready the Console Printer and principal printer 

• Set the physical drive number of the drive containing 
the initialized cartridge in console entry switches 
12-15. 

Switches 12-15 off, drive 
Switch 15 on, drive 1 
Switch 14 on, drive 2 
Switch 14, 15 on, drive 3 
Switch 13 on, drive 4 

• Place the System Loader Part 1 (Tape 1) in the Paper 
Tape Reader. 

When loading tapes , position any of the delete 
codes following the program ID in the tape leader 
under the read starwheels. 

• With the console Mode switch set to RUN, press IMM 
STOP, RESET, and PROGRAM LOAD 

Tape 1 is read in and the system WAITs at $PST4 
or $PRET. 

• Place the user-punched Load Mode control record 
tape in the reader and press PROGRAM START. 

This tape is read in and the system again waits 
at $PST4 or $PRET. 

• Place the System Loader Part 2 (Tape 2) in the 
reader and press PROGRAM START. The system 
will WAIT after loading. 

• Place the user-punched System Configuration Tape 
in the reader and press PROGRAM START. The 
system will WAIT. 

• Load tapes 3 through 14 as required using the same 
procedure. 
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NOTE: If the FORTRAN Compiler and/or Assembler 
are to be deleted, tapes 5 and/or 6 need not be loaded. 
Load only those System Library Tapes (9 through 14) that 
are required for your system. 

After the last required System Library Tape has 
been loaded, the Monitor system is on disk and can be 
made operational by a user-initiated cold start. 



Tape 2 

User-punched System Configuration tape (revised 

if system is being reconfigured) 

Tape 3 

(Revised programs or program phases)* 

Tape 8 



SYSTEM RELOAD (PAPER TAPE SYSTEM) 



During a reload of system programs or a system re- 
configuration, all System Loader Control record tapes 
must be used. A typical paper tape reload would 
include: 

Tape 1 

User-punched Load Mode Control record 

(R for reload) 



*AU programs must have phase ID numbers within the 
limits of the IDs listed on the PHID tape. 

If the Assembler or FORTRAN Compiler were 
deleted on initial load or deleted by a DUP DEFINE VOID 
operation, they cannot be reloaded using the reload 
procedure. They must be loaded by an initial load. 

For further information regarding reload, see 
System Reload (Card System). 
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COLD START (CARD AND PAPER TAPE SYSTEM) 



The Supervisor initially achieves control over the 1130 
Monitor System through the user-initiated Cold Start 
procedure. The Cold Start procedure begins with the 
D?L (Initial Program Load) of the Cold Start record, 
which causes the Cold Start program to be read into 
core storage from the system cartridge and control to 
be transferred to it. 

The Cold Start program, in turn, loads the Resident 
Monitor into its location in lower core storage. The 
Cold Start procedure ends when control is given to the 
job initialization program in the Supervisor. 

NOTE: Do not perform a cold start with an uninitialized 
cartridge on line. 

Cold Start Procedure 
To perform a cold start: 

• Ready the principal print device. 

• Set the physical drive number of the drive containing 
the system cartridge in console entry switches 12-15. 
Switches 12-15 off, drive 

Switch 15 on, drive 1 
Switch 14 on, drive 2 
Switch 15, 14 on, drive 3 
Switch 13 on, drive 4 

• Ready the selected disk drive. 

• Press IMM STOP and RESET on the console. 

• Ready the Console Printer. 

• Place the cold start record in the reader wired for 
IPL (Tape 15, paper tape system). 

• Press reader START. If both a 2501 and 1442 model 
6 or 7 are present, place the 1442 in a not-ready 
status. 

• Press PROGRAM LOAD on the console. 



When the Cold Start record is read; a dummy // JOB 
record is printed on the principal printer and the 
Supervisor prints cartridge status information as follows. 



LOG DRIVE CART SPEC CART AVAIL PHY DRIVE 
XXXX XXXX XXXX XXXX 

where 



LOG DRIVE is always zero 

CART SPEC is the cartridge ID written on the 
cartridge by DCIP. 

CART AVAIL is the same as CART SPEC. 



PHY DRIVE is the physical drive number selected 
in the console entry switches. This physical drive 
is now logical zero. 

The Monitor system is now operational and is ready 
to receive the first JOB record from the reader. If an 
attempt is made to cold start a non-system cartridge, 
an error message — NON-SYST. CART ERROR — is 
printed on the Console Printer. 



The table below lists the error stops contained in 
the Cold Start Loader (i. e. , card or paper tape). 



Absolute Address 


Explanation 


/0014 

/0044 
/0046 


-Invalid disk drive number 
in Console. Entry Switches 

-Indicated disk drive not 
ready 

-Disk read error 
-Waiting for interrupt from 
seek operation 

-Waiting for interrupt from 
reading sector ©IDAD 
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STAND-ALONE UTILITY PROGRAMS 



These utility programs — each self-loading and complete 
with subroutines — are separate from the System Library 
and enable the user to perform operations without Mon- 
itor system control. The first three programs are 
available in card and paper tape, the last two in paper 
tape only. The utility programs are: 

• Console Printer Core Dump 

• Printer Core Dump 

• Disk Cartridge Initialization Program (DCIP) 

• Paper Tape Utility (PTUTL) 

• Paper Tape Reproducing 

CONSOLE PRINTER CORE DUMP 

This program aids the user in debugging programs by 
dumping selected portions of core on the Console Printer. 

Format 

Each core location is dumped as a four-digit hexadecimal 
word with a space separating each word. The first word 
dumped is the starting address of the dump (as specified 
in the console entry switches). 



Operating Procedures 

• With the console Mode switch set to RUN, press IMM 
STOP and RESET on the console. 

• Place the Console Printer Core Dump program in the 
reader wired for IPL and ready the reader (if the 
system configuration is 2501, 1442-6 or -7, make the 
1442 not-ready). 

• Set the margin on the Console Printer. To print the 
same format on each line set the number of print 
positions to a multiple of 5. 

• Set the starting address (in hexadecimal) in the con- 
sole entry switches. 

• Press PROGRAM LOAD. 

Dumping continues until IMM STOP is pressed. To con- 
tinue, press PROGRAM START. 



PRINTER CORE DUMP 

This program dumps core in hexadecimal format on 
either the 1403 Printer or the 1132 Printer, whichever 
is in a ready status. If both are ready, the dump will be 
on the 1403. 

NOTE: "Not present" is equivalent to "not ready". 



Format 

Dumping starts at location $ZEND. Each line contains 
a four-digit hexadecimal address, followed by 16 four- 
digit hexadecimal words. A space separates the address 
and each word in the printed line. An additional space is 
inserted between each group of four words. 

To decrease dump time, the program does not print 
consecutive duplicate lines. Before printing a line, it 
compares the next 16 words with the 16 words just 
printed. If they are identical, the program goes on to 
the next 16 words in core. If they are not identical, the 
printer spaces one line and prints. The address printed 
is that of the first word on the line. 



Operating Procedures 

• With the console Mode switch set to RUN, press IMM 
STOP and RESET. 

• Place the Printer Core Dump program in the reader 
wired for IPL and ready the reader. (If the system 
configuration is 2501, 1442-6 or -7, make the 1442 
not- ready. ) 

• Ready the printer. 

• Press PROGRAM LOAD. 

Dumping starts at location $ZEND and continues to the 
end of core. The user may halt the dump at any time by 
pressing IMM STOP. Press PROGRAM START to con- 
tinue on the 1403. The 1132 has no restart capabilities. 

DISK CARTRIDGE INITIALIZATION PROGRAM (DCIP) 

The Disk Cartridge Initialization Program (DCIP) is 
composed of 

• A disk initialization subroutine 

• A disk copy subroutine 

• A disk dump subroutine 
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Initialization 

• Writes a sector address on every sector, including 
defective sectors. 

• Determines which, if any, sectors are defective 
and fills in the defective cylinder table accordingly. 

• Establishes a file-protected area for the disk 
cartridge. 

• Puts an ID on the disk cartridge. 

• Establishes a DCOM, LET, and CIB. 

Initialization of a cartridge is required before the Mon- 
itor system can be loaded. 

The disk I/O subroutines operate with up to three 
defective cylinders, i.e. , three cylinders that contain 
one or more defective sectors. 

Cylinder zero must not be a defective cylinder; 
otherwise, the cartridge cannot be initialized. 

At the completion of disk initialization, a four- 
word table is written on sector @IDAD. Words 1, 2, 
and 3 contain the address of sector zero of any 
defective cylinders found (maximum of three). 
When there are no defective cylinders, these words 
contain /0658, e. g. , the table for a cartridge with 
a defect only in sector 9 (cylinder 1) would contain:. 

/0008 
/0658 
/0658 

Word 4 contains the cartridge ID. The copy code (word 
5) through word 270 is cleared to zero, and the Cold 
Start Error Message (including the program to type the 
message) is stored on sector @IDAD starting at word 
271. 

After sector @DCOM has been cleared to zeros, cer- 
tain parameters are initialized to indicate that this is a 
non-system cartridge. The parameter set, including 
their initial values, are listed below: 



An initial LET is also created on sector @RIAD. 
contents are as follows: 



Its 



#ANDU /01 80 (disk block address) 

#BNDU /0180 (disk block address) 

#FPAD /0018 (sector address) 

#CIDN XXXX 

#CIBA /0008 (sector address) 

#U1ET /0002 (sector address) 



End of User Area, adjusted 

(update during JOB T) 

End of User Area, base 

File protect address on this 

cartridge 

Cartridge ID of this cartridge 

First sector of CIB on this 

cartridge 

First sector of LET on this 

cartridge 



Word 1 LET sector number 

Word 2 Sector address of UA 

Word 3 Reserved 

Word 4 Words available in this sector 

Word 5 LET/FLET chain address 

Word 6 1 st Word of 1 DUMY entry 

Word 7 2nd Word of 1 DUMY entry 

Word 8 Size of 1 DUMY 



/0000 
/0018 
/0000 
/0138 

/0000 (Last LET/FLET sector) 
/71 1 2 j 1 DUMY in packed 
/4568 j trunc ated EBCDIC 
/6280 (Size of WS available in 
disk blocks) 



Words 9-320 of (pDRIAD all contain zero. 

Copy 

The disk copy subroutine of DCIP 

• Checks to ensure that both the cartridge to be copied 
and the cartridge onto which the copy is to be made 
have been correctly initialized. 

• Copies a cartridge from any drive onto a cartridge on 
any other drive, making allowances for defective Cyl- 
inders. The cartridge ID, copy code, and defective 
cylinder table are not copied from the source cartridge. 
Both Version 1 and Version 2 cartridges may be copied. 

Dump 

The disk dump subroutine of DCIP 

• Dumps any disk sectors from any drive. 

• Prints the dump on the fastest printer on the system 
(in the order of speed — 1403, 1132, or Console 
Printer). 



The address of the first sector to be dumped and the 
number of consecutive sectors to be dumped are speci- 
fied in the console entry switches. 

Each sector printout is 20 lines — 16 four-digit 
hexadecimal words per line. Two sectors are printed 
on each page and each sector is preceded by a 3-word 
header. The first digit of the first header word is the 
drive number. The remaining three digits of the first 
header word show the physical sector address of the 
sector being dumped. The second header word is the 
sector address that actually appears on the sector being 
dumped. The third word is the logical sector address, 
taking into account any defective cylinders. If the user 
dumps a sector that is in a defective cylinder, the third 
word will contain the letters DEFC. 
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Operating Procedures 

• With the console Mode switch set to RUN, press IMM 
STOP and RESET on the console. 

• Place the Disk Cartridge Initialization Program in the 
reader wired for IPL and ready the reader. 

If the system configuration is 2501-1442, make 
the 1442 not^ready. (On the paper tape system, 
place the DCIP tape in the reader, positioning the 
tape so that one of the delete codes following the pro- 
gram name in the leader is under the read starwheels.) 

• Press PROGRAM LOAD. 

• After the program is loaded, the following message 
is printed on the Console Printer. 

TURN ON SWO TO INITIALIZE 
SW1 TO COPY 
SW2 to DUMP 

• Turn on console entry switch 0, 1, or 2 and press 
PROGRAM START. 

NOTES: 

1. At any point in this program, an invalid entry in the 
console entry switches will cause the following 
message to be printed. 

ENTRY ERROR . . . RETRY 

Correct the error and press PROGRAM START to 
continue. 

2. If a drive is not ready, the standard preoperative 
trap to $PRET is made. The Accumulator contains 
/50X0 where X is the number of the physical drive 
that is not ready. 

3. All console entry switch settings are printed on the 
Console Printer as 4-digit hexadecimal numbers. 

4. DCIP messages refer to console entry switches as 
"bit" switches. 

5. If the system has two card readers, only the reader 
wired for IPL should be in the ready state. 

6. A DCIP function can be aborted at any time by 
pressing keyboard INT REQ. The user is then 
given the option of repeating the current function 
or selecting a new function. 



Initialization (Console Entry Switch On) 

• If console entry switch is on, the following message 
is printed. 

ENTER DR. NO. IN BITS 12-15 
TURN ON BIT FOR ADDRESSES ONLY 



Enter the physical drive number of the cartridge being 
initialized (in binary) in console entry switches 12-15. 

• Turn console entry switch off if the cartridge is 
being initialized. (The entire disk surface is cleared, 
disk addresses are written, and three distinct bit 
patterns are written and read back for checking pur- 
poses. In addition, the following message and a pro- 
gram for printing it is written on sector @IDAD, start- 
ing at word 271. 

NON-SYST. CART ERROR 

When the Monitor system is loaded to disk, this mes- 
sage is overlaid by the Cold Start program; therefore, 
an attempt to cold start a non-system cartridge will 
result in the above message being printed. 

• Leave console entry switch on if addresses only are 
being written (any data on the cartridge is retained). 

• Press PROGRAM START. 

• If console entry switch is on, addresses are written 
on the disk and the following message is then printed. 

ADDRESSING COMPLETE 

The program now returns to accept the next DCIP 
function and the option messages are reprinted. 

• If console entry switch is off, the following message 
is printed. 

ENTER CARTRIDGE ID 

Turn off all console entry switches and enter the 
cartridge ID in console entry switches 1-15 (four 
hexadecimal characters). A valid cartridge ID 
is a number between /0001 and /7FFF. 

• Press PROGRAM START. The cartridge TD is printed. 

XXXX 

• The cartridge is initialized and the following message 
is printed. 

INITIALIZATION COMPLETE 
In addition, one of the following messages is printed. 

NO DEFECTIVE CYLS 

or 

DEFECTIVE CYLS FOLLOW 
XXXX. . . 

If more than 3 defective sectors are printed, or if cylin- 
der zero is defective, or if the sector address cannot be 
written on every sector, the cartridge cannot be used 
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with the Monitor system and the following message 
is printed: 

CARTRIDGE DEFECTIVE 

The last message printed is: 

TURN ON SW FOR ADDITIONAL TESTING 

• Set console entry switch as desired and press 
PROGRAM START. 

• If console entry switch is off, the program returns 
to accept the next DCIP function. 

If console entry switch is on, the following mes- 
sage is printed. 

ENTER REPETITION COUNT IN BITS 11-15 

Enter the repetition count (max. 31) in binary in 
console entry switches 11-15. This will give 
additional opportunity to find marginal cylinders 
and reduce chances of disk errors later on. 

• Press PROGRAM START. 

Initialization is repeated with each cylinder being 
checked with each pattern the number of times speci- 
fied in the repetition count. When the pass is .com- 
pleted, the initialization complete messages are re- 
peated, including any new defective cylinders found 
and the user is again given the option to repeat the 
initialization, or select the next DCD? function. All 
new cartridges must be initialized by DCIP. 

Copy (Console Entry Switch 1 On) 

• If console entry switch 1 is on, the following message 
is printed. 

ENTER. . . SOURCE DR. (BITS 0-3) 

OBJECT DR. (BITS 12-15) 

Enter the physical drive number of the source drive 
(in binary) in console entry switches 0-3. Enter the 
drive code of the object drive (in binary) in console 
entry switches 12-15. 

• Press PROGRAM START. 

If the cartridge on either the source or object drive 
has not been initialized, the following message is 
printed. 

X DR. NOT INITIALIZED 

The program now returns to accept the next DCIP 
function and the option messages are printed. 

If both drives have been initialized, the contents 
of the source cartridge (less defective sector data 
and cartridge K>) is copied on the object cartridge. 

Word 5 of sector @IDAD of the source cartridge 
(zero when the cartridge is initialized) is incre- 
mented by 1 when writtei on the object cartridge. 



The copy number of the object cartridge will thus 
always be one more than the copy number of the 
source cartridge. 

NOTE: When copying is complete, the program returns 
to select the next DCIP function and the option messages 
are printed. If a disk read/write error occurs, the fol- 
lowing message is printed. 

DISK ERROR. . . TURN ON SW TO RETRY 

At the WAIT, the Accumulator contents will be /0001 
for a read error or /0002 for a write error. The 
Extension will contain /XYYY where X is the drive 
code and YYY is the address of the sector in error. 

Turn console entry switch on and press PROGRAM 
START to rewrite or reread the sector in error. 

Leave console entry switch off and press PRO- 
GRAM START to ignore the error and continue. If 
the error is ignored, the contents of the object car- 
tridge will reflect the last attempt to copy the sector 
in error. 

Dump (Console Entry Switch 2 On) 

• If console entry switch 2 is on, the following message 
is printed. 

ENTER. . . PHYS. DR. NO. (BITS 0-3) 
FIRST SECTOR (BITS 4-15) 

Enter the physical drive number of the drive contain- 
ing the cartridge to be dumped in console entry 
switches 0-3. Enter the address of the first sector 
to be dumped in console entry switches 4-15 (hexa- 
decimal, maximum /Q657). 

• Press PROGRAM START. 

The following message is printed. 

ENTER NO. OF SCTRS. TO DUMP 

Enter the number of consecutive sectors to be dumped 
as a right- justified hexadecimal number in the console 
entry switches. The maximum amount will depend on 
the starting sector address. 

• Press PROGRAM START. 

The requested number of sectors will be dumped. 
When the dump is complete, the program returns to 
accept the next DCIP function and the option messages 
are printed. 

NOTE: If a disk read error occurs, the following 
message is printed. 

DISK ERROR. . . TURN ON SW TO RETRY 

Turn console entry switch on and press PROGRAM 
START to read the sector in error. If the reread is 
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successful, the sector is printed and the dump 
continues. 

Leave console entry switches off and press 
PROGRAM START to ignore the error and continue. 
The sector in error is printed as it was last read 
from the disk. 



PAPER TAPE REPRODUCING PROGRAM 



tape reproducing routine then WAITs with /2222 in 
the Accumulator. If the paper tape punch is not- 
ready, the tape reproducing program WAITs with 
/3333 in the Accumulator. To restart, ready the 
paper tape punch, and press PROGRAM START. 
An unlimited number of tapes can be reproduced 
by this program. Be sure to create a trailer (and 
leader) of delete codes between the output tapes if 
the tapes are to be separated. 



This program, available only with the paper tape sys- 
tem, is a self-loading paper tape strip that reproduces 
paper tapes. The program reads a character and 
punches it with no intermediate conversion. 



NOTE: If the PROGRAM STOP key is pressed while 
the program is in operation, the program WAITs 
with /4444 in the Accumulator. Press PROGRAM 
START to continue. 



Operating Procedure 

• Place the paper tape reproducing program tape in 
the paper tape reader, positioning the tape so that 
one of the delete codes beyond the ID in the leader 
is beneath the read starwheels. 

• With the console Mode switch set to RUN, press 
IMM STOP, RESET, and PROGRAM LOAD on the 
console. The reproducing program is read in and 
WAITs with /llll in the Accumulator. 

• Remove the reproducing program tape and place the 
tape to be reproduced in the reader. Place blank 
tape in the tape punch unit and produce several 
inches of delete code leader by first pressing down 
and holding the DELETE key. Then press the FEED 
key and hold until a leader of sufficient length has 
been punched. Release the FEED key before re- 
leasing the DELETE key. 

• Press PROGRAM START to begin the tape repro- 
ducing operation. The program continues to operate 
until the paper tape reader goes not-ready, indi- 
cating that there is no more tape to be read. The 



STAND-ALONE PAPER TAPE UTILITY PROGRAM 
(PTUTL) 

This program, also included as an executable program 
in the System Library, is a self-loading paper tape 
utility program that allows the user to enter records 
from the 1134 Paper Tape Reader or the Keyboard. 
Program output is to the 1055 Paper Tape Punch and/ 
or the Console Printer. 



Opera ting Procedures 

• Place the PTUTL tape in the paper tape reader so 
that one of the delete codes beyond the program ID 
is under the read starwheels. 

• With the console mode switch set to RUN , press 
IMM STOP, RESET, and PROGRAM LOAD on the 
console. 

• PTUTL is read in and the system WAITs with/1111 
in the Accumulator. 

• For complete operating instructions for PTUTL, see 
Paper Tape Utility (PTUTL) in the System Library. 
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APPENDIX A. MONITOR SYSTEM ERROR AND OPERATIONAL MESSAGES 



With the exception of the System Library Mainline Pro- 
grams, this appendix lists all Monitor System WAITs 
and messages. SYSUP, the DCOM update subroutine, is 
also available in the System Library. The errors for the 
user callable version of SYSUP are listed in the System 
Library Utility Subroutines section of the manual. All 
messages for stand-alone utilities are included in the 
writeups of the individual programs. 

System Loader and FORTRAN I/O errors cause the 
system to WAIT at $PRET. At the WAIT, bits 2 and 3 
of the OPERATION REGISTER are on. FORTRAN I/O 
errors can be identified by the Fxxx code in the accumu- 
lator. A $PRET WAIT also occurs when a system I/O 
device is required but is not ready (see Table 18). 

All error tables in this appendix are listed alphabet- 
ically by prefix letter. Unless otherwise noted, the 
operational and error messages are printed on the prin- 
cipal printer. All Monitor system control records are 
printed on the principal printer. 

The error tables in order of appearance are as 
follows. 



Table 7. Assembler Error Detection Codes 





Error 






Table 


Code 






Number 


Prefix 


Program Name 




8 


A 


Assembler 




9 


C 


FORTRAN Compiler 




10 


D 


Disk Utility Program (DUP) 




11 


E 


System Loader 




12 


F 


FORTRAN I/O 




13 


M 


Monitor Control Record Analyzer (MCRA) 




14 


M 


Supervisor Control Record Program 


' Supervisor 


15 


- 


SYSUP 




16 


R 


Core Load Builder 




17 


S 


Auxiliary Supervisor 




18 


- 


ISS Subroutine 





ASSEMBLER MESSAGES AND ERROR CODES 

At the completion of an assembly, the following mes- 
sages are printed on the principal printer. 

XXX OVERFLOW SECTORS SPECIFIED 

XXX OVERFLOW SECTORS REQUIRED 

XXX SYMBOLS DEFINED 

XX ERROR(S) FLAGGED IN ABOVE ASSEMBLY 

If LIST DECK or LIST DECKE is specified, the error 
detection codes shown in Table 7 are punched in columns 



Flag 


Cause 


Assembler Action 


A 


Address Error 

Attempt made to specify dis- 
placement field, directly or 
indirectly, outside range of 
-128 to +127. 


Displacement set to zero 


C 


Condition Code Error 
Character other than +, -, Z, 
E, C, or O detected in first 
operand of short branch or 
second operand of long BSC, 
BOSC, or BSI statement. 


Displacement set to zero 


F 


Format Code Error 


Instruction processed as if L 




Character other than L, 1, X, 


format were specified, unless 




or blank detected in col . 32, 


that instruction is valid only in 




or L or 1 format specified for 


short form, in which case it is 




instruction valid only in short 


processed as if the X format 




form. 


were specified 


L 


Label Error 

Invalid symbol detected in label 

field. 


Label ignored 


M 


Multiply Defined Label Error 


First occurrence of symbol in 




Duplicate symbol encountered 


label field defines its value; 




in label field. 


subsequent occurrences of 
symbol in label field cause a 
multiply defined indicator to be 
inserted in symbol table entry 
(Bit of first word). 


O 


Op Code Error 






Unrecognized op code 


Statement ignored and address 
counter incremented by 2. 




ISS, ILS, ENT, LIBR, SPR, 


Statement ignored 




EPR, or ABS incorrectly placed. 




R 


Relocation Error 






Expression does not have valid 


Expression set to zero 




relocation. 






Non-absolute displacement 


Displacement set to zero 




specified. 






Absolute origin specified in 


Origin ignored 




relocatable program. 






Non-absolute operand specified 


Operand assumed to be zero 




in BSS or BES. 






Non-relocatable operand in 


Card columns 9-12 left blank; 




END statement of relocatable 


entry assumed to be relative 




mainline program. 


zero 




ENT operand non-relocatable. 


Statement ignored 


S 


Syntax Error 






Invalid expression (e.g., invalid 


Expression set to zero 




symbol, adjacent operators, 






illegal constant) 






Illegal character in record. 


If illegal character appears in 
expression, label, op code, 
format, or tag field, additional 
errors may be caused . 




Main program entry point not 


Card columns 9-12 left blank; 




specified in END operand. 


entry assumed to be relative zero 




Incorrect syntax in EBC state- 


Card columns 9-12 not punched; 




ment (e.g., no delimiter in 


address counter incremented 




card column 35, zero character 


by 17. 




count). 






Invalid label in ENT or ISS 


Statement ignored 




operand . 




T 


Tag Error 






Card column 33 contains 


Tag of zero assumed 




character other than blank, 0, 






1, 2, or 3 in instruction 






statement. 




U 


Undefined Symbol 






Undefined symbol in expression 


Expression set to absolute zero 



18 and 19. For the first error detected in each statement 
the Assembler stores and then punches the code in column 
18; the code for a second error is stored, overlaid by any 
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subsequent errors, and punched in column 19. Thus, if 
more than two errors are detected in the same state- 
ment, only the first and last are indicated. These error 
detection codes will appear on the printout if the deck is 
listed. 

At the end of the assembly, a message is printed in- 
dicating the number of assembly errors detected in the 
source program (see above). Since no more than two 
errors are flagged per statement, the error count may 
exceed the actual number of flags. 

Assembler error messages are listed in Table 8. 



FORTRAN MESSAGES AND ERROR CODES 



Compilation Messages 

Near the end of the compilation, core usage information 
and the features supported (control records used) are 
printed out as follows: 



FEATURES SUPPORTED 

EXTENDED PRECISION 

ONE WORD INTEGERS 

TRANSFER TRACE 

ARITHMETIC TRACE 

IOCS 
CORE REQUIREMENTS FOR XXXXX 
COMMON YYYYY VARIABLE SYYYYY PROGRAM YYYYY 

where XXXXX is the name of the program designated in 
the *NAME control record or in the SUBROUTINE or 
FUNCTION statement, and YYYYY is the number of 
words allocated for the specified parts of the program. 

The following message is printed for a normal end of 
compilation (with or without errors): 

END OF COMPILATION 

Compilation Error Messages 

During compilation, a check is made to determine if cer- 
tain errors have occurred. If one or more of these 



Table 8. Assembler Error Messages 



Error Number and Message 



Cause of Error 



Corrective Action 



A01 MINIMUM W.S. NOT AVAILABLE. 
ASSEMBLY TERMINATED 



A02 SYMBOL TABLE OVERFLOW. . .ASSEMBLY 
TERMINATED 



A03 DISK OUTPUT EXCEEDS W.S. 



A04 SAVE SYMBOL TABLE INHIBITED 



A05 XXX ERRONEOUS ORG, BSS, OR EQU 
STATEMENTS IN ABOVE ASSEMBLY 



A06 LOAD BLANK CARDS 



A07 *LEVEL CONTROL RECORD MISSING 



Available Working Storage is less than the 
number of overflow sectors specified plus one 
sector. 



The number of sectors of symbol table overflow 
is greater than the number of overflow sectors 
available. 

Intermediate output (pass 1) or final DSF output 
(pass 2) exceeds the capacity of Working 
Storage less the number of overflow sectors 
specified. 



With SAVE SYMBOL TABLE option specified: 

1. Program is relocatable, 

2. Program contains assembly errors. 

3. Source program contains more than 100 
symbols . 

XXX is the number of ORG, BSS, BES, and/or 
EQU statements that were undefined in pass 1 . 
At the end of pass 1 , these erroneous state- 
ments are printed on the principal printer. If 
the error was due to forward referencing, it 
will not be detected during pass 2. 

A card containing a non-blank column between 
1-71 has been read while punching a symbol 
table (*PUNCH SYMBOL TABLE specified for 
this assembly). 



The program listed above was assembled as an 
ISS subroutine without the required *LEVEL 
control record. 



Reduce the number of overflow sectors specified (number specified 
is zero if no *OVERFLOW SECTORS control record is used) or, 

If more than one drive is available on the system, use the //JOB 
record to specify System Working Storage on the cartridge with the 
most Working Storage available. 

Use an *OVERFLOW SECTORS control record to increase the 
number of overflow sectors for this assembly (maximum 32 sectors). 



If this error occurs during pass 1, the system will WAIT at location 
2PRET with/400E (2501) or /100E (1442) in the accumulator. Press 
PROGRAM START to continue the assembly in TWO PASS MODE. 

For pass 2, see options on A01 . 



1. Use ABS card and reassembly. 

2. Correct source program errors and reassemble. 

3. Reduce the number of symbols and reassemble. 



Where forward references have been attempted, they must be 
corrected before the program is reassembled. 



The system will WAIT with /100F in the accumulator. N on pro cess 
run out (NPRO) the card just read. Place blank cards ahead of this 
card in the hopper. Press reader START and console PROGRAM 
START . 

NOTE: If the output is being punched on a 1442-5, a non-blank 
card cannot be detected. In addition, the punch may be damaged 
if an attempt is made to punch a hole where a hole already exists. 

Reassemble using *LEVEL control record. 
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errors have been detected the error indications are 
printed at the conclusion of compilation, and no object 
program is stored on the disk. Only one error is de- 
tected for each statement. In addition, due to the inter- 
action of error conditions, the occurrence of some 
errors may prevent the detection of others until those 
which have been detected are corrected. With the ex- 
ception of the COO error message and those noted 
below, the error message appears in the following 
format: 

CNN ERROR IN STATEMENT NUMBER XXXXX+YY 

NN is the error code number listed in Table 9. With the 
exception of specification statement errors, XXXXX is 
the last valid statement number preceding the erroneous 
statement and YYY is the count of statements from 
XXXXX to the statement that is in error. If the erron- 
eous statement has a valid statement number, XXXXX 
will be the statement in error and YYY will not be 
printed. 

For example: 



105 
110 

ABC 
135 



FORMAT (15, F8.4) 
IF (A-B) 10,30,20 
A = A+l. 



B = B-2. 
GO TO 105 



(error C01) 
(error C43) 



This example will cause the following error messages 
to be printed. 

C01 ERROR IN STATEMENT NUMBER 110 + 002 
C43 ERROR IN STATEMENT NUMBER 135 



For specification statements, XXXXX is always 00000 
and YYY is the count of the number of specification 
statements in error. YYY is never 000, i. e. , for the 
first error YYY is 001. Specification statements are 
not counted unless they contain an error. Statement 
numbers on specification statements and statement 
functions are ignored. NN is the error code. 
For example: 



1 


DIMENSION 


C(10, 10) 




2 


DIMENSION 


D(5,5) 




3 


DIMENSION 


E(I,6,6) 


(error C08) 


4 


DIMENSION 


F(4,4) 




5 


DIMENSION 


G(2,2)) 


(error C16) 



C08 ERROR AT STATEMENT 00000 + 001 
C16 ERROR AT STATEMENT 00000 + 002 

In addition to the CNN type of error the following 
error messages may be encountered: 

PROGRAM LENGTH EXCEEDS CAPACITY 

The error occurs when the program in internal compil- 
er format is too large to be contained in core work- 
ing storage, and the program must be reduced in size 
in order to compile. 

SUBROUTINE INITIALIZE TOO LARGE 

During compilation of Sub-programs a subroutine 
initialize statement (CALL SUBIN) is generated. 

The CALL SUBIN statement initializes all references 
to "dummy" variables contained within the sub- 
program to the appropriate core location in the calling 
program. 

The nature of the FORTRAN compiler limits the size 
of any statement in internal compiler format to 511 
words. In the case of CALL SUBIN, the size is cal- 
culated by the following formula: 

S = 5 + ARG + N 

where ARG is the number of arguments in the sub- 
routine parameter list and N is the total number of 
times the dummy arguments are used within the sub- 
program. S is the total size of the CALL SUBIN 
statement; if S ever exceeds 511, an error occurs and 
the above error message is printed. 

If any of these errors are detected during compilation, 
the message: 

OUTPUT HAS BEEN SUPPRESSED 

is also printed. 

If a monitor control record is encountered prior to an 
END card, the message 

MONITOR CONTROL RECORD ENCOUNTERED 

is printed, and control is returned to the monitor super- 
visor. 



The above error and the COO error will interrupt 
the compilation. In this case the message 



This example will cause the following error messages 
to be printed. 



COMPILATION DISCONTINUED 
will be printed. 
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Table 9. FORTRAN Error Codes 



Error 
Number 


Cause of Error 


COO 


WORKING STORAGE EXCEEDED 

The working storage area on disk is too small to accommodate the 

compiled program in disk system format. 


C01 


Non-numeric character in statement number. 


C02 


More than five continuation cards, or continuation card out of 




sequence. 


C03 


Syntax error in CALL LINK or CALL EXIT statement. 


C04 


Undeterminable, misspelled, or incorrectly formed statement. 


C05 


Statement out of sequence. 


C06 


Statement following STOP, RETURN, CALL LINK, CALL EXIT, 
GO TO, or IF statement does not have statement number. 


C07 


Name longer than five characters, or name not starting with an 
alphabetic character. 


C08 


Incorrect or missing subscript within dimension information 
(DIMENSION, COMMON, REAL, or INTEGER). 


C09 


Duplicate statement number. 


CIO 


Syntax error in COMMON statement. 


Cll 


Duplicate name in COMMON statement. 


C12 


Syntax error in FUNCTION or SUBROUTINE statement. 


C13 


Parameter (dummy argument) appears in COMMON statement. 


C14 


Name appears twice as a parameter in SUBROUTINE or 
FUNCTION statement. 


C15 


*IOCS control record in a subprogram. 


C16 


Syntax error in DIMENSION statement. 


C17 


Subprogram name in DIMENSION statement. 


C18 


Name dimensioned more than once, or not dimensioned on first 




appearance of name. 


C19 


Syntax error in REAL, INTEGER, or EXTERNAL statement. 


C20 


Subprogram name in REAL or INTEGER statement. 


C21 


Name in EXTERNAL that is also in a COMMON or DIMENSION 




statement. 


C22 


IFIX or FLOAT in EXTERNAL statement. 


C23 


Invalid real constant. 


C24 


Invalid integer constant. 


C25 


More than 15 dummy arguments, or duplicate dummy argument in 
statement function argument list. 


C26 


Right parenthesis missing from a subscript expression. 


C27 


Syntax error in FORMAT statement. 


C28 


FORMAT statement without statement number. 


C29 


Field width specification greater than 145. 


C30 


In a FORMAT statement specifying E or F conversion, w greater 
than 127, d greater than 31,or d greater than w, where w is an 
unsigned integer constant specifying the total field length of the 
data, and d is an unsigned integer constant specifying the number 
of decimal places to the right of the decimal point. 


C31 


Subscript error in EQUIVALENCE statement. 


C32 


Subscripted variable in a statement function. 


C33 


Incorrectly formed subscript expression. 



Error 
Number 



C34 
C35 

C36 

C37 
C38 
C39 
C40 
C41 

C42 

C43 

C44 
C45 

C46 

C47 

C48 
C49 

C50 

C51 

C52 
C53 
C54 
C55 

C56 
C57 
C58 
C59 
C60 
C61 
C62 

C63 
C64 

C65* 



Cause of Error 



Undefined variable in subscript expression. 

Number of subscripts in a subscript expression does not agree with 
the dimension information. 

Invalid arithmetic statement or variable; or, in a FUNCTION 
subprogram the left side of an arithmetic statement is a dummy 
argument or in COMMON. 

Syntax error in IF statement. 

Invalid expression in IF statement. 

Syntax error or invalid simple argument in CALL statement. 

Invalid expression in CALL statement. 

Invalid expression to the left of an equal sign in a statement 
function. 

Invalid expression to the right of an equal sign in a statement 
function. 

In an IF, GO TO, or DO statement, a statement number is missing, 
invalid, incorrectly placed, or is the number of a FORMAT 
statement. 

Syntax error in READ or WRITE statement. 

*IOCS record missing with a READ or WRITE statement (mainline 
program only). 

FORMAT statement number missing or incorrect in a READ or 
WRITE statement. 

Syntax error in input/output list; or an invalid list element; or, in 
a FUNCTION subprogram, the input list element is a dummy 
argument or in COMMON. 

Syntax error in GO TO statement. 

Index of a computed GO TO is missing, invalid, or not preceded 
by a comma. 

*TRANSFER TRACE or *ARITHMETIC TRACE control record present, 
with no *IOCS control record in a mainline program. 

Incorrect nesting of DO statements; or the terminal statement of 
the associated DO statement is a GO TO, IF, RETURN, FORMAT 
STOP, PAUSE, or DO statement. 

More than 25 nested DO statements. 

Syntax error in DO statement. 

Initial value in DO statement is zero. 

In a FUNCTION subprogram the index of DO is a dummy 
argument or in COMMON. 

Syntax error in BACKSPACE statement. 

Syntax error in REWIND statement. 

Syntax error in END FILE statement. 

Syntax error in STOP statement. 

Syntax error in PAUSE statement. 

Integer constant in STOP or PAUSE statement is greater than 9999. 

Last executable statement before END statement is not a STOP, 
GO TO, IF, CALL LINK, CALL EXIT, or RETURN statement. 

Statement contains more than 15 different subscript expressions. 

Statement too long to be scanned, because of compiler expansion 
of subscript expressions or compiler addition of generated temporary 
storage locations. 

All variables are undefined in an EQUIVALENCE list. 
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Table 9. FORTRAN Error Codes (continued) 



Error 
Number 



C66* 

C67* 

C68 

C69 

C70 

C71 
C72 

C73 

C75 
C76 

C77 
C78 
C79 
C80 
C81 
C82 



Cause of Error 



Variable made equivalent to an element of an array in such a 
manner as to cause the array to extend beyond the origin of the 
COMMON area. 

Two variables or array elements in COMMON are equated, or the 
relative locations of two variables or array elements are assigned 
more than once (directly or indirectly). 

Syntax error in an EQUIVALENCE statement; or an illegal 
variable name in an EQUIVALENCE list. 

Subprogram does not contain a RETURN statement, or a mainline 
program contains a RETURN statement. 

No DEFINE FILE statement in a mainline program that has disk 
READ, WRITE, or FIND statements. 

Syntax error in DEFINE FILE statement. 

Duplicate DEFINE FILE statement, more than 75 DEFINE FILES, 
or DEFINE FILE statement in subprogram. 

Syntax error in record number of disk READ, WRITE, or FIND 
statement. 

Syntax error in DATA statement. 

Names and constants in a DATA statement not in a one to one 
correspondence. 

Mixed mode in DATA statement. 

Invalid hollerith constant in a DATA statement. 

Invalid hexadecimal specification in a DATA statement. 

Variable In a DATA statement not used elsewhere In the program. 

COMMON variable loaded with a DATA specification. 

DATA statement too long. 



The detection of a code 65, 66, or 67 error prevents any subsequent 
detection of any of these three errors. 



On a DEFINE VOID, one of the following messages is 
printed. 

ASSEMBLER VOIDED 
FORTRAN VOHDED 

On a DEFINE FIXED AREA, the message is as follows, 

CART ID XXXX CYLS FXA XXXX DBS AVAIL XXXX 
FLET SECTOR ADDR XXXX 

where 

CYLS FXA XXXX is the decimal number of 
cylinders -1 in the Fixed Area. The additional 
cylinder is used for FLET. 

DBS AVAIL XXXX is the hexadecimal number of 
disk blocks remaining in the Fixed Area following 
the last program or data file. 

FLET SECTOR ADDR XXXX is the hexadecimal 
sector address of the first cylinder in the Fixed 
Area, i.e. , the sector address of FLET. 

On a dump of LET or FLET, the printout is followed by 
a sign-off message. 

END OF DUMPLET/FLET 

All other DUP operations are followed by the following 
message. 

CART ID XXXX DB ADDR XXXX DB CNT XXXX 

where 



DUP MESSAGES AND ERROR CODES 



DB ADDR XXXX is the hexadecimal starting address 
of the program or data file. 



When a DUP function is performed without error, 
an informational message is printed on the principal 
printer. 



DB CNT XXXX is the hexadecimal number of disk 
blocks being deleted, stored, or dumped. 

DUP error messages are listed in Table 10. 
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Table 10. DUP Error Messages 



Error Number and Message 



Cause of Error 



D01 NAME IS NOT PRIME ENTRY 
D02 INVALID HEADER RECORD TYPE 

D03 INVALID HEADER LENGTH 

D05 SECONDARY ENTRY POINT OR NAME 
ALREADY IN LET 

D06 ENTRY POINT NAME ALREADY IN 
LET/FLET 

D12 INVALID DISK I/O SPECIFIED 

D13 INVALID FUNCTION FIELD (CC 1-12) 

D14 INVALID FROM FIELD (CC 13-14) 

D15 INVALID TO FIELD (CC 1 7-18) 

D16 INVALID NAME FIELD (CC 21-25) 

D17 INVALID COUNT FIELD (CC 27-30) 

D18 INVALID FUNCTION DURING TEMPORARY 
JOB 

D19 CARTRIDGE NOT ON SYSTEM 

D20 CARTRIDGE ID OUTSIDE VALID RANGE 
(0001-7FFF) 

D21 INVALID STOREMOD. SIZE OF 
REPLACEMENT EXCEEDS SIZE OF 
ORIGINAL 

D22 PROGRAM NOT IN WORKING STORAGE 

D23 INVALID SYSTEM OVERLAY SUBTYPE 
SPECIFIED 

D24 COUNT FIELD TOO LARGE 

D25 REQUIRED FORMAT NOT IN W.S. 
D26 NAME NOT FOUND IN LET/FLET 
D27 SOURCE NOT IN DSF 

D30 INVALID RECORD TYPE 

D3I PROGRAM OR DATA EXCEEDS 
DESTINATION DISK AREA 

D32 INVALID CORE IMAGE CONVERSION 



D33 LET/FLET OVERFLOW. A CORE DUMP 
FOLLOWS 



D41 INVALID STORECI CONTROL RECORD 

D42 STORECI CONTROL RECORDS 
INCORRECTLY ORDERED 

D43 INCORRECT CONTINUATION 

D44 ILLEGAL CHARACTER IN RECORD 

D45 ILLEGAL FILE NUMBER 



The primary name of the program in Working Storage does not match the name on the DUP control record. 

One of the following is detected: a non-DSF program, a mispositioned header, foreign data, or an 
erroneous subtype. 

Word six of the DSF header is outside the range of 3-45. The causes are similar to D02, except for subtype. 

The specified secondary entry point name is already in LET. The name must be deleted before this subprogram 
can be stored. 

The specified name is already in LET/FLET. The name must be deleted before this program or data file can be 
stored . 

Disk routine code on STORECI control record (column 9) was other than 0, 1 , N, Z, or blank. 

An invalid DUP function is specified in columns 1-12 of the DUP control record. 

Unacceptable characters are in columns 13 and 14 of the DUP control record. The FROM field specified 
is not valid with this DUP function. 

Unacceptable characters are in columns 17 and 18 of the DUP control record. The TO field specified is not 
valid with this DUP function. 

No name specified and one required, or syntax error in construction of name. 

Columns 27 through 30 are blank or include alphabetic characters. The count field requires a decimal number. 

This function is not allowed during the JOB T mode. 

Cartridge specified as TO or FROM cartridge was not specified on JOB record as being used in this job. 
Correct cartridge ID and retry. 

The replacement version of the program cy data file is larger than the current version. The old version must 
be deleted before the replacement can be stored. 

The disk block count for the requested program in Working Storage is zero. The program is not in Working 
Storage. 

The system overlay subtype indicator (column 1 1) on a STORE control record is not in the range 0-9. 

The count field extends beyond column 30 of a DEFINE FIXED AREA control record or column 31 is not a 
minus sign. 

During a STOREMOD, the format of the LET/FLET entry does not agree with the format in Working Storage. 

The name specified on a DELETE or DUMP control record is not in LET/FLET. 

The format indicator of the FROM cartridge indicates that Working Storage on this cartridge does not contain 
a DSF program. 

An invalid type binary record has been read when storing from cards or paper tape. 

The number of disk blocks required to store a program or data exceeds the amount of space available in the 
specified TO field. 

The Core Load Builder has inhibited the continuation of STORECI. The specific reason has been printed by 
the Core Load Builder. 

A ninth sector of LET/FLET is required (or a seventh sector of LET on a non-system cartridge) for the LET/FLET 
entry. A deletion of a program with a LET/FLET entry of similar size is required before this program can be 
stored . 

A core dump follows this message since the affected cartridge may have to be reloaded. The dump allows the 
user to locate the condition that caused the error. Use of the affected cartridge is not recommended until the 
problem has been investigated. 

The STORECI control record read was not a LOCAL, NOCAL, or FILES record, or a mainline name was 
specified on a LOCAL or NOCAL record. 

LOCAL, NOCAL, and FILES records were intermixed. All records of a given type muit be loaded together. 

A comma at the end of the record indicated that it would be continued; however, it was not. 

An illegal character, probably a blank, appeared in the record. 

A non-numeric character appears in a file number, or the number is more than five characters long. 
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Table 10. DUP Error Messages (continued) 



Error Number and Message 



Cause of Error 



D46 ILLEGAL NAME 

D47 ILLEGAL CARTRIDGE ID 

D48 SCRA BUFFER OVERFLOW 

D50 NON-BLANK CARD READ ENTER BLANK 
CARDS 

D70 LAST ENTRY IN LET/FLET NOT 1DUMY 



D71 1DUMY ENTRY IN LET/FLET IS FOLLOWED 
BY A SECONDARY ENTRY POINT 



D72 FIRST ENTRY IN LET/FLET SECTOR IS A 
SECONDARY ENTRY POINT 

D80 FIXED AREA PRESENT 

D81 ASSEMBLER NOT IN SYSTEM 

D82 FORTRAN NOT IN SYSTEM 

D83 INCREASE VALUE IN COUNT FIELD 
(CC 27-30) 

D84 DEFECTIVE SLET 

D85 FIXED AREA NOT PRESENT 

D86 DECREASE VALUE IN COUNT FIELD 

D90 CHECK SUM ERROR 

D92 INVALID DISKZ CALL. A CORE 
DUMP FOLLOWS 



D93 CARTRIDGE OVERFLOW 



A name is more than five characters long, or contains characters other than A-Z, 0-9, or $, or a name 
contains embedded blanks. 

The cartridge ID specified is not in the range/0001-/7FFF, or contains an illegal character. 

The Supervisor Control Record Area (SCRA) cannot contain all the LOCAL, NOCAL, or FILES information. 

A non-blank card has been read during a dump to a 1442-6 or -7. Place blank cards in the hopper and ready 
the card read punch. Press PROGRAM START. 

DELETE cannot find the end of LET or FLET. The header for this LET/FLET sector contains the count of unused 
words in this sector. This count should point to the last 1DUMY entry; however, the entry to which it now 
points is not a 1DUMY. 

The name on the DELETE control record points to a secondary entry point. The first entry in LET/FLET witti a 
non-zero disk block count that precedes the secondary entry is a 1DUMY. The primary entry is not in 
LET/FLET. 

The LET/FLET table is improperly constructed. The first entry is not a primary entry. 

The FORTRAN Compiler and/or Assembler cannot be eliminated if a Fixed Area has been previously defined. 

The Assembler has previously been eliminated from the system. 

The FORTRAN Compiler has previously been eliminated from the system. 

The count field was read as a value of zero or one. The first DEFINE requires one cylinder for FLET plus one 
cylinder of Fixed Area. Thereafter, as little as one cylinder of additional Fixed Area can be defined. 

Cartridge must be reloaded. 

The control record specifies a decrease in the Fixed Area and there is no Fixed Area on the cartridge. 

There is insufficient Working Storage area available to allow the Fixed Area to be defined or expanded by the 
amount specified in the count field (cc 27-30). This message is preceded by a count of the number of 
cylinders available XXXX CYLS AVAILABLE. The count is in decimal. 

Checksum error in binary card or paper tape record, or binary cards are out of order. 

While performing a DUP function, an attempt has been made to read or write sector 0, or to read or write 
with a negative word count. This is a system error. 

A core dump follows this message since the affected cartridge may have to be reloaded. The dump allows the 
user to locate the condition that caused the error. Use of the affected cartridge is not recommended until 
the problem has been investigated. 

While performing a DUP function, an attempt has been made to read or 
write a sector beyond 1599 decimal . 



SYSTEM LOADER MESSAGES AND ERROR CODES 

No informational messages are printed during an 
initial load. At the completion of a reload, the follow- 



ing message is printed, 
END RELOAD 
Table 11 lists the System Loader Errors. 
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Table It System Loader Errors 



Error Number and Message 


Corrective Action 


E01 


CHECKSUM ERROR 


Follow procedure A or restart initial load. 


E02 


INVALID RECORD OR BLANK 


Follow procedure A or restart initial load. 


E03 


SEQ ERROR OR MISSING RECORDS 


Follow procedure A or restart initial load. 


E04 


ORG BACKWARDS 


Inspect deck for cards missing or out of sequence. Correct deck and restart from card in error. 


E05 


ERROR IN LOAD MODE RECORD 


Follow procedure A or restart initial load. 


E06 


INVALID DRIVE NUMBER 


Set all bit switches off. Set bit switches to select physical drive number and press PROGRAM START. 
All switches off - Drive Switch 14, 15 on - Drive 3 
Switch 15 on - Drive 1 Switch 13 on - Drive 4 
Switch 14 on - Drive 2 


E07 


ID SCTR DATA INVALID 


Use DCIP or DISC and follow with initial load. 


E08 


CONFIG DECK ERROR 


System configuration deck may be missing, out of place, or may contain errors in one or more cards. Correct 
the deck and restart initial load. 


E09 


FILE PROTECT ADDRESS TOO HIGH 


This error will occur on a reload only. The last program in the User Area extends into the last two cylinders 
on the cartridge. These cylinders are required by the System Loader during a reload operation. The file 
protect address must be lowered before a reload can be accomplished. 


E10 


SYST DECK ERROR 


A card containing a negative phase ID has less than four data words. Correct the deck in error and restart 
initial load, or reload the phase in error, starting with the sector break card which precedes the last card 
read. 


Ell 


SCRA OVERLAY STOP 


Abort. An initial load must be performed to shift the location of the Supervisor Control Record Area (SCRA) 
address. An attempt to perform a reload on a non-system cartridge will cause this message to be printed. 


E12 


PHASE NO. OUT OF SEQ 


The Accumulator contains the phase ID of the phase that is out of sequence (from last card read). Place the 
decks in proper order and continue from sector break card of correct phase. 


E13 


PHID RECD ERROR 


Follow procedure A or reload and restart. 


E14 


PHASE MISSING 


Error occurred when phase ID (binary word 1 1) of last card read was processed. Inspect Load Mode card, 
PHID card, and phase ID of previously loaded phase to determine what phase is now required. Locate 
missing phase, place deck in reader starting with sector break card of missing phase, and continue. 


E15 


PH. ID NOT IN PHID CARD 


The Accumulator contains the extraneous phase ID. To ignore this phase, press PROGRAM START. To load 
this phase, correct the PHID card and perform an initial load. 


E16 


PHASE ID NOT IN SLET 


If this error occurs during a reload, and the system decks have not all been loaded, the error was caused by 
an attempt to reload a phase not presently in the System Location Equivalence Table (SLET). The 
Accumulator contains the ID of the phase that cannot be found. The Extension contains 0. Press PROGRAM 
START to bypass this phase. 

If this error occurs during reload table processing, the Accumulator contains the phase ID that is being 
searched for and the Extension contains the ID of the phase requesting a SLET lookup. Press PROGRAM 
START to go on to the next phase requested or to the next requesting phase in SLET. 


E17 


DEFECTIVE SLET 


Processing cannot be completed. An initial load of the system is required. 


E18 


PAPER TAPE ERROR 


The paper tape System Loader has found a word count greater than 54. This is probably due to incorrect 
sequencing of tapes, a faulty tape, or a paper tape reader malfunction. Correct error and restart initial 
load. 



Procedure A 

If cards are being read from a 1442 Card Read Punch: 

1 . Lift the remaining cards from the hopper and press nonprocess run out (NPRO). 

2. Correct the card in error (first card nonprocessed out) and place the two nonprocessed cards ahead of the cards removed from the hopper. 

3. Place the deck back in the hopper. 

4. Press reader START. 

5. Press console PROGRAM START. 

If cards are being read from a 2501 Card Reader: 

1 . Lift the remaining cards from the hopper and press NPRO. 

2. a. Correct the card in error (last card in stacker prior to NPRO) and place this card followed by the single nonprocessed card ahead of the cards 

removed from the hopper or, 
b. If the error occurred after the PHID card was read and before the type 81 card was read the System Loader is in double buffer mode. Correct 
the card in error (in this case the second from last card in the stacker when the error occurred) and place the last two cards from the stacker 
and the nonprocessed card ahead of the cards removed from the hopper. 

3. Place the deck back in the hopper. 

4. Press reader START. 

5. Press console PROGRAM START. 
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Table 1 2. FORTRAN I/O Errors 



Accumulator 
Display 


Cause of Error 


FOOO 


No *IOCS card appeared with the mainline program and 
I/O was attempted in a subroutine. 


F001 


Logical unit defined incorrectly, or No *IOCS control 
record for specified I/O device. 


F002 


Requested record exceeds allocated buffer size. 


F003 


Illegal character encountered in input record. 


F004 


Exponent too large or too small in input field. 


F005 


More than one E encountered in input field. 


F006 


More than one sign encountered in input field. 


F007 


More than one decimal point encountered in input field. 


F008 


Read of output-only device, or Write of input-only 
device. 


F009 


Real variable transmitted with an 1 format specification or 
integer variable transmitted with an E or F format 
specification. 


F020 


'Illegal unit reference.* 


F021 


Read list exceeds length of write list. 


F022 


* 
Record does not exist for read list element. 


F023 


Maximum length of $ $ $ $ $ area on the disk ha* been 
exceeded. This error is unrecoverable and results in a 




call exit. 


F100 


File not defined by DEFINE FILE statement. 


F101 


File record too large, equal to zero, or negative. 


F103 


Disk FIO (SDFIO) has not been initialized. 


F10A 


Subscripting has destroyed the Define File Table. This 
occurs when a subscript exceeds the specification in a 
DIMENSION statement. 




' Can occur in unformatted I/O operations. 



FORTRAN I/O ERRORS 

When a FORTRAN I/O error occurs, the system WAITs 
at $PRET with an Fxxx error code displayed in the 
accumulator. Table 12 lists the FORTRAN I /O errors. 



SUPERVISOR MESSAGES AND ERROR CODES 

The monitor Supervisor causes all Monitor system 
control records to be printed on the principal printer. 

During a DCOM update operation (i. e. , following 
each JOB record or user call to SYSUP) the following 
message is printed. 

LOG DRIVE CART SPEC CART AVAIL PHY DRIVE 



XXXX 



XXXX 



XXXX 



XXXX 



where 



LOG DRIVE is the drive number specified on the 
JOB card (in the calling sequence of the SYSUP 
subroutine) 

CART SPEC is specified cartridge ID 

CART AVAIL is the available cartridge ID 

PHY DRIVE is the physical drive number starting 
with 0. 

The logical drive may be different from the physical drive, 
e. g. , physical drive may be defined as logical drive 2. 

One line is printed for each physical drive on the 
system. 

Tables 13,14, and 15 list Supervisor errors. 



Table 13. Phase 1, Monitor Control Record Analyzer Errors 



Error Number and Message 


Cause of Error 


Ml 1 INVALID MONITOR CONTROL RECORD 
M12 EXECUTION SUPPRESSED 

M13 DUP SUPPRESSED 

M14 SYSTEM PROGRAM DETECTED MONITOR 
CONTROL RECORD 

M15 ILLEGAL CARTRIDGE ID 

M16 ASM AND/OR FOR VOIDED 


A // record was not recognized as a valid Monitor control record. 

SNXEQ was set upon detection of an error that would prevent successful execution by the system. Execution 
is bypassed. 

$NDUP was set upon detection of an error that would prevent successful DUP operation. DUP is bypassed. 

A system program has detected a Monitor control record when none was expected. The control record is 
passed to the MCRA for processing. 

A cartridge ID contains an illegal character or is a negative number. The job is aborted. 

ASM or FOR requested but the FORTRAN Compiler and/or Assembler was either not loaded by the System 
Loader or was voided by a DUP DEFINE. 
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Table 14. Phase 2. System Control Record Program Errors (Phase 2 errors cause execution to be bypassed). 



Error Number and Message 


Cause of Error 


M21 ABOVE RECORD NOT A SUPERVISOR 
CONTROL RECORD 

M22 SUPERVISOR CONTROL RECORDS 
INCORRECTLY ORDERED 

M23 INCORRECT CONTINUATION 

M24 ILLEGAL CHARACTER IN RECORD 

M25 ILLEGAL FILE NUMBER 

M26 ILLEGAL NAME 

M27 ILLEGAL CARTRIDGE ID 
M28 SCRA BUFFER OVERFLOW 

M29 ILLEGAL DISK SUBROUTINE REQUESTED 


The last record read is not a LOCAL, NOCAL, or FILES record. 

LOCAL, NOCAL, and FILES records cannot be intermixed. 

A comma at the end of the record indicated that the record would be continued; however, it was not. 

An illegal character, probably a blank, appeared in the record. 

A non-numeric character appears in a file number, or the number is more than five characters long. 

A name is more than five characters long, or contains characters other than A-Z, 0-9, or $, or a name 
contains embedded blanks. 

The cartridge ID specified is not in the range /0001-/^FFF, or contains an illegal character. 

The Supervisor Control Record Area (SCRA) cannot contain all the LOCAL, NOCAL, or FILES record 
information. 

A character other than 0, 1 , N Z, or blank appeared in column 19 of the XEQ card. 



Table 15. SYSUP - DCOM Update Errors (SYSTJP errors are also listed 
with the System Library Utility Subroutine SYSUP). 



Cartridge ID and Message 


Cause of Error 


XXXX IS NOT AN AVAILABLE 
CARTRIDGE ID 

XXXX IS A DUPLICATED 
SPECIFIED CARTRIDGE ID 

XXXX IS A DUPLICATED 
AVAILABLE CARTRIDGE ID 

XXXX IS NOT A SYSTEM 
CARTRIDGE 


A requested cartridge ID is not on any 
cartridge on the system, or the ID is 
not listed in #CIDN of the DCOM on" 
the cartridge. 

The cartridge ID was listed as appear- 
ing on more than one drive on the JOB 
card. 

A specified ID appears on more than 
one cartridge on the system . 

An attempt has been made to specify a 
non-system cartridge as the master 
cartridge (logical 0). 



COKE LOAD BUILDER ERRORS 

Except for the core load map described in the Program- 
ming Tips and Techniques section and messages 
R41-R45, the Core Load Builder prints no informa- 
tional messages. Table 16 lists Core Load Builder 
Error Messages. 
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Table 16. Core Load Builder Error Messages 



Error Number and Message 



Cause and Corrective Action 



R00 LOCALS/SOCALS OVERFLOW WORK 
STORAGE 



R01 ORIGIN BELOW 1ST WORD OF MAINLINE 



R02 DEFINE FILE(S) OVERFLOW WORK STORAGE 



R03 NO DSF PROGRAM IN WORKING 
STORAGE 



R05 INVALID LOADING ADDR FOR ILS02 

R06 FILE(S) TRUNCATED (SEE FILE MAP) 

R07 TOO MANY ENTRIES IN LOAD TABLE 

R08 CORE LOAD EXCEEDS 32 K 

R09 LIBF TV REQUIRES 82 OR MORE ENTRIES 

R16 XXXXX IS NOT IN LET OR FLET 

R17 XXXXX CANNOT BE A LOCAL/NOCAL 

R18 XXXXX LOADING HAS BEEN TERMINATED 

R19 XXXXX IS NOT A DATA FILE 

R20 XXXXX COMMON EXCEEDS THAT OF ML 

R21 XXXXX PRECISION DIFFERENT FROM ML 



There is insufficient Working Storage remaining to accommodate the LOCAL and/or SOCAL overlays required 
by the core load. 

Remedy 

Change the Working Storage ID on the JOB card to the drive with the most available Working Storage or 
Create more Working Storage on the present drive by deleting subroutines, subprograms, and/or data 
no longer required. 

The Core Load Builder has been instructed to load a word into an address lower than the first word of the 
mainline program. 

Remedy 

Remove the ORG statement that is causing the problem or, 
Origin the mainline program at a lower address. 

There is insufficient Working Storage remaining to accommodate even one record of the defined file(s). 
Remedy 

See R00. 

No program in Working Storage. 
Remedy 

Place the desired program in Working Storage before calling the Core Load Builder. 

ILS02 has been loaded into low COMMON. 
Remedy 

The mainline should be made longer so that ILS02 will be loaded in a higher address. 

At least one defined file has been truncated, either because the previously defined storage area in the User 
or Fixed Area was inadequate, or because there is inadequate Working Storage available to store the file. 

Remedy 

Redefine the User/Fixed Area file, or change the record count specification in the DEFINE FILE 
statement. 

There are references to more than (approximately) 150 different entry points in the core load b • CALL and/or 
LIBF statements. 

Remedy 

Divide the core load into two or mo~e links. 

The Core Load Builder has been instructed to load a word into a core address that exceeds 32767 (a negative 
number). The loading process is immediately terminated, since the Core Load Builder cannot process 
negative addresses. The error was probably caused by bad data being read from the disk. 

There are at least 82 different entry points referenced in the core load by LIBF statements. 
Remedy 

Divide the core load into two or more links. 

The program or data file name printed in the message cannot be found in LET or FLET. 

Remedy 

Store the program or data file. 

If the name cannot be explained, the program being loaded has probably been destroyed (bad data was 

read from the disk). 

The program named in this message is either a type which cannot appear on a *LOCAL control card, or is a 
LOCAL that has been referenced, directly or indirectly, by another LOCAL. 

The loading of the mainline program named in this message has been terminated as a result of the errors 
listed in the messages preceding this one. 

The area named in this message does not begin at a sector boundary, which implies that it is not a data file 
but a DSF program, and thus a possible error. 

Remedy 

Choose another area for the storage of this file. 

The length of COMMON for the subroutine named in this message is longer than that of the mainline 
program. 

Remedy 

Define more COMMON for the mainline program. 

The precision for the subroutine named in this message is incompatible with that of the mainline program. 
Remedy 

Make the precisions compatible. 
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Table 16. Core Load Builder Error Messages (continued) 



Error Number and Message 



Cause and Corrective Action 



R22 



R23 
R39 
R40 



R41 
R42 
R43 
R44 
R45 
R46 



R47 
R64 
R65 
R66 



XXXXX AND ANOTHER VERSION 
REF'ENCED 



XXXXX SHOULD BE IN THE FIXED AREA 
XXXX IS NOT CURRENTLY ON SYSTEM 



XXXX(HEX) = ADDITIONAL CORE 
REQUIRED 



XXXX(HEX) WORDS UNUSED BY CORE 
LOAD 

XXXX(HEX) IS THE EXECUTION ADDR 



XXXX(HEX) = ARITH/FUNC SOCAL 
WD CNT 

XXXX(HEX) = Fl/O, I/O SOCAL WD CNT 
XXXX(HEX) = DISK Fl/O SOCAL WD CNT 
XXXX(HEX) = AN ILLEGAL ML LOAD ADDR 



XXXX(HEX) TOO MANY WDS IN COMMON 
XXXXX IS BOTH A L1BF AND A CALL 
XXXXX HAS MORE THAN 14 ENTRY POINTS 
XXXXX HAS AN INVALID TYPE CODE 



At least two different versions of the same ISS have been referenced, e.g., CARDZ and CARDO (FORTRAN 
uses CARDZ). If a disk subroutine is named in the message, it is possible that the XEQ record specifies one 
version (e.g., DISKZ) whereas the program references another (e.g., DISKN). (A blank in column 19 of 
the XEQ control record causes DISKZ to be used.) 

Remedy 

Change the references so that the core load uses only one version of any given I/O subroutine. 

The area named in this message is in the User Area. References in DEFINE FILE and DSA statements for 
*STORECI functions must be to the Fixed Area. 

XXXX is a cartridge ID appearing on an *FILES record. The cartridge was not on-line when the core load 
was built. 

If the core load was executed, /XXXX is the number of words by which it exceeded core before the Core 
Load Builder made it fit by creating special overlays (SOCALs). 

If the core load was not executed, /XXXX equals the number of words still required after the Core Load 
Builder has attempted to make it fit by using SOCALs. 

Remedy 

In the latter case, create more links or LOCALs. 

NOT AN ERROR. /XXXX. is the number of words of core storage not used by this core load. 

NOT AN ERROR. This message follows every successful conversion from DSF to DC I when a core map has 
been requested. 

NOT AN ERROR. It has been necessary to use special overlays (SOCALs) and /XXXX is the length of the 
arithmetic/function overlay (see System Overlays) . 

NOT AN ERROR. It has been necessary to use special overlays (SOCALs), and /XXXX is the length of the 
FORTRAN I/O, I/O, and conversion subroutine overlay (see System Overlays) . 

NOT AN ERROR. It has been necessary to use special overlays (SOCALs), and /XXXX is the length of the 
disk FORTRAN I/O overlay, including the 320 word buffer. 

/XXXX is the address at which the Core Load Builder has been requested to start loading the mainline 
program. However, this address is lower than the highest address occupied by the version of disk I/O 
requested for this core load. 

This error may also be caused by starting an absolute mainline program at an odd location. An ORG to an 
even location, followed by a BSS of an odd number of words has the same effect as an ORG to an odd 
location. 

Remedy 

Origin the mainline at a higher address, or 
Request a shorter version of disk I/O, or 
Origin the mainline at an even boundary 

The length of COMMON specified in the mainline program plus the length of the core load exceeds core 
storage by /XXXX words. 

The subroutine named in this message either been improperly referenced, i.e., CALL instead of LIBF or 
vice versa, or has been referenced in both CALL and LIBF statements. 

This message usually means that the subroutine has been destroyed since a subroutine is not stored if it 
contains more than 14 entry points. 

The subroutine named in this message has either 

1) Been designated on an XEQ record and is not a mainline program or, 2) 

Contains a type code other than 3 (subroutine), 4 (function), 5 (ISS), or 6 ILS), in which case, the 

subroutine has probably been destroyed. 

This error can also be caused by a DSA statement referencing a DSF program, or a CALL or LIBF referencing 
a program in DC I or DDF. 
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AUXILIARY SUPERVISOR ERRORS 



ISS SUBROUTINE WAITS 



The Auxiliary Supervisor prints no informational mes- 
sages. Table 17 lists Auxiliary Supervisor Error 
messages. 



A device not ready or illegal function parameter causes 
a pre-operative WAIT at $PRET. The ISS subroutine 
WAITs are listed in Table 18. 



Table 17. Auxiliary Supervisor Errors 



Error Number and Message 


Cause of Error 


500 INVALID FUNCTION 
CODE 

501 XXXXX IS NOT IN 

LET/FLET 

502 XXXXX IS A DATA 
FILE 


The Auxiliary Supervisor received an 
illegal parameter. 

The Core Image Loader is unable to 
find the specified name in LET or FLET. 

The specified name cannot be executed 
since it is a data file, not a program. 



T able 18. ISS Subroutine WAITs 



Device Causing WAIT 


Contents of 
Accumulator 


Cause of WAIT 


1442 Card Read Punch 
or 1442 Card Punch 


/1000 
/1001 


Device not ready or last card indicator on for read. 

Illegal device, device not in system, illegal function, word count over +80, or word count zero or negative. 


Keyboard/Console 
Printer 


/2000 
/2001 


Device not ready. 

Device not in system, illegal function, or word count zero or negative. 


1134/1055 Paper Tape 
Reader/Punch 


/3000 
/3001 


Device not ready. 

Illegal device, illegal function, word count zero or negative, or illegal check digit. 


2501 Card Reader 


/4000 
/4001 


Device not ready. 

Illegal function, word count over +80, or word count zero or negative. 


Disk 


/5000 
/5001 

/5002 
/5003 
/5004 


Device not ready. 

Illegal device, device not in system, illegal function, attempt to write in file protected area, word count zero or 
negative, or starting sector identification over +1599. 

Write select/power unsafe. 

Same as /5001 except error caused by a Monitor program (DISK1, DISKN only). 

Disk error (DISKZ only) 


1132 Printer 


/6000 
/6001 


Device not ready or end of forms. 

Illegal function, word count over +60, or word count zero or negative. 


1627 Plotter 


/7000 
/7001 


Device not ready. 

Illegal device, device not in system, illegal function, or word count zero or negative. 


SCAT 


/8001 

/8002 
/8003 


Invalid function code or invalid word count (all SCAT subroutines). 

Invalid sub-function code for some transmit or receive operation (SCAT2 or SCAT3 only). 

Receive operation not completed or transmit operation not completed (SCAT1 only). 

Failure to establish synchronization before attempting to perform some transmit or receive operation,or attempting to 
receive before receiving INQ sequence (SCAT1 only). 


1403 Printer 


/9000 
/9001 


Device not ready or end of forms. 

Illegal function, word count over +60, or word count zero or negative. 


1231 Optical Mark 
Page Reader 


/A000 
/A001 


Device not ready. 
Illegal function. 
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APPENDIX B. CHARACTER CODE CHART 



Ref 
No. 


EBCDIC 


IBM Card Code 


Graph 


cs and Control 
Names 


1132 
Printer 
EBCDIC 


PTTC/8 
Hex 

U -Upper Case 


Console 

Printer 

Hex 

Notes 


1403 
Printer 


Binary 


Hex 




Rows 




Hex 




0123 4567 




12 11 9 8 


7-1 








Subset Hex 


L-Lower Case 


Hex 


0000 0000 


00 


12 


9 8 


1 


B030 


NUL 












1 


0001 


01 


12 


9 


1 


9010 














2 


0010 


02 


12 


9 


2 


8810 














3 


0011 


03 


12 


9 


3 


8410 














4 


0100 


04 


12 


9 


4 


8210 


PF 


PuncK Off 










5* 


0101 


05 


12 


9 


5 


8110 


HT 


Horiz.Tab 




6D(UA) 


41 (D 




6* 


0110 


06 


12 


9 


6 


8090 


LC 


Lower Case 




6E (U/L) 






7* 


0111 


07 


12 


9 


7 


8050 


DEL 


Delete 




7F (U/L) 






8 


1000 


08 


12 


9 8 




8030 














9 


1001 


09 


12 


9 8 


1 


9030 














10 


1010 


0A 


12 


9 8 


2 


8830 














11 


1011 


OB 


12 


9 8 


3 


8430 














12 


1100 


oc 


12 


9 8 


4 


8230 














13 


1101 


OD 


12 


9 8 


5 


8130 














14 


1110 


OE 


12 


9 8 


6 


80B0 














15 1 


r mi 


OF 


12 


9 8 


7 


8070 














16 0001 0000 


10 


12 1 


1 9 8 


1 


D030 














17 


0001 


11 




1 9 


1 


5010 














18 


0010 


12 




1 9 


2 


4810 














19 


0011 


13 




1 9 


3 


4410 














20* 


0100 


14 




1 9 


4 


4210 


RES 


Restore 




4C (U/L) 


05 © 




21* 


0101 


15 




1 9 


5 


4110 


NL 


New Line 




DD(U/L) 


81 <3) 




22* 


0110 


16 




1 9 


6 


4090 


BS 


Backspace 




5E (U/L) 


11 




23 


0111 


17 




1 9 


7 


4050 


IDL 


Idle 










24 


1000 


18 




1 9 8 




4030 














25 


1001 


19 




1 9 8 


1 


5030 














26 


1010 


1A 




1 9 8 


2 


4830 














27 


1011 


IB 




1 9 8 


3 


4430 














28 


1100 


1C 




1 9 8 


4 


4230 














29 


1101 


ID 




1 9 8 


5 


4130 














30 


1110 


IE 




1 9 8 


6 


40B0 














31 \ 


1111 


IF 




1 9 8 


7 


4070 














32 0010 0000 


20 


1 


10 9 8 


1 


7030 














33 


0001 


21 




9 


1 


3010 














34 


0010 


22 




9 


2 


2810 














35 


0011 


23 




9 


3 


:2410 














36 


0100 


24 




9 


4 


2210 


BYP 


Bypass 










37* 


0101 


25 




9 


5 


2110 


LF 


Line Feed 




3D(UA) 


03 




38* 


0110 


26 




9 


6 


2090 


EOB 


End of Block 




3E(UA) 






39 


0111 


27 




9 


7 


2050 


PRE 


Prefix 










40 


1000 


28 




9 8 




2030 














41 


1001 


29 




9 8 


1 


3030 














42 


1010 


2A 




9 8 


2 


2830 














43 


1011 


2B 




9 8 


3 


2430 














44 


1100 


2C 




9 8 


4 


2230 














45 


1101 


2D 




9 8 


5 


2130 














46 


1110 


2E 




9 8 


6 


20B0 














47 1 


J mi 


2F 




9 8 


7 


2070 














48 0011 0000 


30 


12 1 


10 9 8 


1 


F030 














49 


0001 


31 




9 


1 


1010 














50 


0010 


32 




9 


2 


0810 














51 


0011 


33 




9 


3 


0410 














52 


0100 


34 




9 


4 


0210 


PN 


Punch On 










53* 


0101 


35 




9 


5 


0110 


RS 


Reader Stop 




0D(UA) 


09 © 




54* 


0110 


36 




9 


6 


0090 


UC 


Upper Case 




0E(U/L) 






55 


0111 


37 




9 


7 


0050 


EOT 


End of Trans. 










56 


1000 


38 




9 8 




0030 














57 


1001 


39 




9 8 


1 


1030 














58 


1010 


3A 




9 8 


2 


0830 














59 


1011 


3B 




9 8 


3 


0430 














60 


1100 


3C 




9 8 


4 


0230 














61 


1101 


3D 




9 8 


5 


0130 














62 


1110 


3E 




9 8 


6 


00B0 














63 ' 


mi 


3F 




9 8 


7 


0070 















NOTES: Typewriter Output 
© Tabulate 
© Shift to black 



' Recognized by all Conversion subroutines 
Codes that are not asterisked are recognized only by the SPEED subroutine 
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EBCDIC 


IBM Card Code 




1132 


PTTC/8 


Console 


1403 


Ref 
No. 


Binary 


Hex 




Rows 




Hex 


Graphics and Control 
Names 


Printer 
EBCDIC 


Hex 

U -Upper Case 


Printer 
Hex 


Printer 
Hex 




0123 4567 




12 11 9 8 


7-1 






Subset Hex 


L-Lower Case 


64* 0100 0000 


40 




no punches 




0000 


blank 


40 


10 (uA) 


21 


7F 


65 


0001 


41 


12 


9 


1 


B010 












66 


0010 


42 


12 


9 


2 


A810 












67 


0011 


43 


12 


9 


3 


A410 












68 


0100 


44 


12 


9 


4 


A210 












69 


0101 


45 


12 


9 


5 


A110 












70 


0110 


46 


12 


9 


6 


A090 












71 


0111 


47 


12 


9 


7 


A050 












72 


1000 


48 


12 


9 8 




A030 












73 


1001 


49 


12 


8 


1 


9020 












74* 


1010 


4A 


12 


8 


2 


8820 


4 




20 (U) 


02 




75* 


1011 


4B 


12 


8 


3 


8420 


(period) 


4B 


6B(L) 
02 (U) 


00 


6E 


76* 


1100 


4C 


12 


8 


4 


8220 


< 




DE 




77* 


1101 


4D 


12 


8 


5 


8120 


( 


4D 


19 (U) 


FE 


57 


78* 


1110 


4E 


12 


8 


6 


80AO 


+ 


4E 


70 (U) 


DA 


6D 


79* 1 


mi 


4F 


12 


8 


7 


8060 


1 (logical OR) 




3B(U) 


C6 




80* 0101 0000 


50 


12 






8000 


& 


50 


70 (L) 


44 


15 


81 


0001 


51 


12 1 


1 9 


1 


D010 












82 


0010 


52 


12 1 


1 9 


2 


C810 












83 


0011 


53 


12 1 


1 9 


3 


C410 












84 


0100 


54 


12 1 


1 9 


4 


C210 












85 


0101 


55 


12 1 


1 9 


5 


C110 












86 


0110 


56 


12 1 


1 9 


6 


C090 












87 


0111 


57 


12 1 


1 9 


7 


C050 












88 


1000 


58 


12 1 


1 9 8 




C030 












89 


1001 


59 




1 8 


1 


5020 












90* 


1010 


5A 




1 8 


2 


4820 


! 




5B(U) 


42 




91* 


1011 


5B 




1 8 


3 


4420 


$ 


5B 


5B(L) 


40 


62 


92* 


1100 


5C 




1 8 


4 


4220 


* 


5C 


08(U) 


D6 


23 


93* 


1101 


5D 




1 8 


5 


4120 


) 


5D 


1A(U) 


F6 


2F 


94* 


1110 


5E 




1 8 


6 


4OA0 






13 (U) 


D2 




95* 1 


' mi 


5F 




1 8 


7 


4060 


A (logical NOT) 




6B(U) 


F2 




96* 01 10 0000 


60 








4000 


- (dash) 


60 


40 (L) 


84 


61 


97* 


0001 


61 







1 


3000 


/ 


61 


31 (L) 


BC 


4C 


98 


0010 


62 




1 9 


2 


6810 












99 


0011 


63 




1 9 


3 


6410 












100 


0100 


64 




1 9 


4 


6210 












101 


0101 


65 




1 9 


5 


6110 












102 


0110 


66 




1 9 


6 


6090 












103 


0111 


67 




1 9 


7 


6050 












104 


1000 


68 




10 9 8 




6030 












105 


1001 


69 




8 


1 


3020 












106 


1010 


6A 


12 1 


1 




C0O0 












107* 


1011 


6B 




8 


3 


2420 


, (comma) 


6B 


3B(L) 


80 


16 


108* 


1100 


6C 




8 


4 


2220 


% 




15 (U) 


06 




109* 


1101 


6D 




8 


5 


2120 


(underscore) 




40 (U) 


BE 




110* 


1110 


6E 




8 


6 


2OA0 


> 




07 (U) 


46 




HI* t 


F mi 


6F 




8 


7 


2060 


? 




31 (U) 


86 




112 0111 0000 


70 


12 1 


1 




E000 












113 


0001 


71 


12 1 


1 9 


1 


F010 












114 


0010 


72 


12 1 


1 9 


2 


E810 












115 


0011 


73 


12 1 


1 9 


3 


E410 












116 


0100 


74 


12 1 


1 9 


4 


E210 












117 


0101 


75 


12 1 


1 9 


5 


E110 












118 


0110 


76 


12 1 


1 9 


6 


E090 












119 


0111 


77 


12 1 


1 9 


7 


E050 












120 


1000 


78 


12 1 


10 9 8 




E030 












121 


1001 


79 




8 


1 


1020 












122* 


1010 


7A 




8 


2 


0820 






04 (U) 


82 




123* 


1011 


7B 




8 


3 


0420 


# 




0B(L) 


CO 




124* 


1100 


7C 




8 


4 


0220 


@ 




20 (L) 


04 


' 


125* 


1101 


7D 




8 


5 


0120 


' (apostrophe) 


7D 


16 (U) 


E6 


0B 


126* 


1110 


7E 




8 


6 


OOAO 


= 


7E 


OKU) 


C2 


4A 


127* ' 


r nn 


7F 




8 


7 


0060 






OB(U) 


E2 
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Ref 
No. 


EBCDIC 


IBM Card Code 


Graphics and Control 
Names 


1132 
Printer 
EBCDIC 


PTTC/8 
Hex 

U -Upper Case 


Console 
Printer 


1403 
Printer 


Binary 


Hex 




Rows 


Hex 




0123 4567 




12 


11 9 8 7-1 






Subset Hex 


L-Lower Case 


Hex 


Hex 


128 


1000 0000 


80 


12 


8 1 


B020 












129 




0001 


81 


12 


1 


BOOO 


a 










130 




0010 


82 


12 


2 


A800 


b 










131 




0011 


83 


12 


3 


A400 


c 










132 




0100 


84 


12 


4 


A200 


d 










133 




0101 


85 


12 


5 


A 100 


e 










134 




0110 


86 


12 


6 


A080 


f 










135 




0111 


87 


12 


7 


A040 


g 










136 




1000 


88 


12 


8 


A020 


h 










137 




1001 


89 


12 


9 


A010 


i 










138 




1010 


8A 


12 


8 2 


A820 












139 




1011 


8B 


12 


8 3 


A420 












140 




1100 


8C 


12 


8 4 


A220 












141 




1101 


8D 


12 


8 5 


A120 












142 




1110 


8E 


12 


8 6 


AOAO 












143 


' 


f mi 


8F 


12 


8 7 


A060 












144 


1001 0000 


90 


12 


11 8 1 


D020 












145 




0001 


91 


12 


11 1 


DOOO 


i 










146 




0010 


92 


12 


11 2 


C800 


k 










147 




0011 


93 


12 


11 3 


C400 


1 










148 




0100 


94 


12 


11 4 


C200 


m 










149 




0101 


95 


12 


11 5 


C100 


n 










150 




0110 


96 


12 


11 6 


C080 


o 










151 




0111 


97 


12 


11 7 


C040 


P 










152 




1000 


98 


12 


11 8 


C020 


q 










153 




1001 


99 


12 


11 9 


C010 


r 










154 




1010 


9A 


12 


11 8 2 


C820 












155 




1011 


9B 


12 


11 8 3 


C420 












156 




1100 


9C 


12 


11 8 4 


C220 












157 




1101 


9D 


12 


11 8 5 


C120 












158 




1110 


9E 


12 


11 8 6 


COAO 












159 


' 1111 


9F 


12 


11 8 7 


C060 












160 


1010 0000 


AO 




11 8 1 


7020 












161 




0001 


Al 




11 1 


7000 












162 




0010 


A2 




11 2 


6800 


s 










163 




0011 


A3 




110 3 


6400 


t 










164 




0100 


A4 




110 4 


6200 


u 










165 




0101 


A5 




110 5 


6100 


V 










166 




0110 


A6 




110 6 


6080 


w 










167 




0111 


A7 




110 7 


6040 


X 










168 




1000 


A8 




110 8 


6020 


y 










169 




1001 


A9 




11 9 


6010 


z 










170 




1010 


AA 




11 8 2 


6820 












171 




1011 


AB 




11 8 3 


6420 












172 




1100 


AC 




11 8 4 


6220 












173 




1101 


AD 




11 8 5 


6120 












174 




1110 


AE 




11 8 6 


60A0 












175 


'' mi 


AF 




11 8 7 


6060 












176 


1011 0000 


BO 


12 


11 8 1 


F020 












177 




0001 


Bl 


12 


11 1 


FOOO 












178 




0010 


B2 


12 


11 2 


E800 












179 




0011 


B3 


12 


110 3 


E400 












180 




0100 


B4 


12 


110 4 


E200 












181 




0101 


B5 


12 


11 5 


E1O0 












182 




0110 


B6 


12 


11 6 


E080 












183 




0111 


B7 


12 


110 7 


E040 












184 




1000 


B8 


12 


110 8 


E020 












185 




1001 


B9 


12 


11 9 


E010 












186 




1010 


BA 


12 


11 8 2 


E820 












187 




1011 


BB 


12 


11 8 3 


E420 












188 




1100 


BC 


12 


11 8 4 


E220 












189 




1101 


BD 


12 


11 8 5 


E120 












190 




1110 


BE 


12 


11 8 6 


EOAO 












191 


' 


J mi 


BF 


12 


11 8 7 


E060 
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EBCDIC 


IBM Card Code 




1132 


PTTC/8 
Hex 

U -Upper Case 


Console 


1403 


Ref 
No. 


Binary 


Hex 




Rows 




Hex 


Graphics and Control 
Names 


Printer 
EBCDIC 


Printer 
Hex 


Printer 
Hex 




0123 4567 




12 11 9 8 


7-1 






Subset Hex 


L-Lower Case 


192 1 100 0000 


CO 


12 







AOOO 


(+ zero) 










193* 


0001 


CI 


12 




1 


9000 


A 


CI 


61 (U) 


3C or 3E 


64 


194* 


0010 


C2 


12 




2 


8800 


B 


C2 


62 (U) 


18 or 1A 


25 


195* 


0011 


C3 


12 




3 


8400 


C 


C3 


73 (U) 


1C or IE 


26 


196* 


0100 


C4 


12 




4 


8200 


D 


C4 


64 (U) 


30 or 32 


67 


197* 


0101 


C5 


12 




5 


8100 


E 


C5 


75 (U) 


34 or 36 


68 


198* 


0110 


C6 


12 




6 


8080 


F 


C6 


76 (U) 


10 or 12 


29 


199* 


0111 


C7 


12 




7 


8040 


G 


a 


67 (U) 


14 or 16 


2A 


200* 


1000 


C8 


12 


8 




8020 


H 


C8 


68 (U) 


24 or 26 


6B 


201* 


1001 


C9 


12 


9 




8010 


1 


C9 


79 (U) 


20 or 22 


2C 


202 


1010 


CA 


12 


9 8 


2 


A830 












203 


1011 


CB 


12 


9 8 


3 


A430 












204 


1100 


cc 


12 


9 8 


4 


A230 












205 


1101 


CD 


12 


9 8 


5 


A130 












206 


1110 


CE 


12 


9 8 


6 


AOBO 












207 i 


mi 


CF 


12 


9 8 


7 


A070 












208 1101 0000 


DO 




1 




6000 


(- zero) 










209* 


0001 


Dl 






1 


5000 


J 


Dl 


51 (U) 


7C or 7 E 


58 


210* 


0010 


D2 






2 


4800 


K 


D2 


52 (U) 


58 or 5A 


19 


211* 


0011 


D3 






3 


4400 


L 


D3 


43 (U) 


5C or 5E 


1A 


212* 


0100 


D4 






4 


4200 


M 


D4 


54 (U) 


70 or 72 


5B 


213* 


0101 


D5 






5 


4100 


N 


D5 


45 (U) 


74 or 76 


1C 


214* 


0110 


D6 






6 


4080 


O 


D6 


46 (U) 


50 or 52 


5D 


215* 


0111 


D7 






7 


4040 


P 


D7 


57 (U) 


54 or 56 


5E 


216* 


1000 


D8 




1 8 




4020 


Q 


D8 


58 (U) 


64 or 66 


IF 


217* 


1001 


D9 




1 9 




4010 


R 


D9 


49 (U) 


60 or 62 


20 


218 


1010 


DA 


12 1 


1 9 8 


2 


C830 












219 


1011 


DB 


12 1 


1 9 8 


3 


C430 












220 


1100 


DC 


12 1 


1 9 8 


4 


C230 












221 


1101 


DD 


12 1 


1 9 8 


5 


C130 












222 


1110 


DE 


12 1 


1 9 8 


6 


COBO 












223 ' 


1111 


DF 


12 1 


1 9 8 


7 


C070 












224 1 1 10 0000 


EO 




8 


2 


2820 












225 


0001 


El 


1 


1 9 


1 


7010 












226* 


0010 


E2 







2 


2800 


S 


E2 


32 (U) 


98 or 9A 


0D 


227* 


0011 


E3 







3 


2400 


T 


E3 


23 (U) 


9C or 9E 


0E 


228* 


0100 


E4 







4 


2200 


U 


E4 


34 (U) 


B0 or B2 


4F 


229* 


0101 


E5 







5 


2100 


V 


E5 


25 (U) 


B4 or B6 


10 


230* 


0110 


E6 







6 


2080 


W 


E6 


26 (U) 


90 or 92 


51 


231* 


0111 


E7 







7 


2040 


X 


E7 


37 (U) 


94 or 96 


52 


232* 


1000 


E8 




8 




2020 


Y 


E8 


38 (U) 


A4 or A6 


13 


233* 


1001 


E9 




9 




2010 


Z 


E9 


29 (U) 


A0 or A2 


54 


234 


1010 


EA 




10 9 8 


2 


6830 












235 


1011 


EB 




10 9 8 


3 


6430 












236 


1100 


EC 




10 9 8 


4 


6230 












237 


1101 


ED 




10 9 8 


5 


6130 












238 


1110 


EE 




10 9 8 


6 


60B0 












239 ' 


mi 


EF 




10 9 8 


7 


6070 












240* 1111 0000 


FO 









2000 





FO 


1A(L) 


C4 


49 


241* 


0001 


Fl 






1 


1000 


1 


Fl 


01 (L) 


FC 


40 


242* 


0010 


F2 






2 


0800 


2 


F2 


02 (L) 


D8 


01 


243* 


oon 


F3 






3 


0400 


3 


F3 


13 (L) 


DC 


02 


244* 


0100 


F4 






4 


0200 


4 


F4 


04 (L) 


FO 


43 


245* 


0101 


F5 






5 


0100 


5 


F5 


15 (L) 


F4 


04 


246* 


0110 


F6 






6 


0080 


6 


F6 


16 (L) 


DO 


45 


247* 


0111 


F7 






7 


0040 


7 


F7 


07 (L) 


D4 


46 


248* 


1000 


F8 




8 




0020 


8 


F8 


08 (L) 


E4 


07 


249* 


1001 


F9 




9 




0010 


9 


F9 


19 (L) 


E0 


08 


250 


1010 


FA 


12 1 


10 9 8 


2 


E830 












251 


1011 


FB 


12 1 


10 9 8 


3 


E430 












252 


1100 


FC 


12 1 


10 9 8 


4 


E230 












253 


1101 


FD 


12 1 


10 9 8 


5 


E130 












254 


1110 


FE 


12 1 


10 9 8 


6 


EOBO 












255 i 


nn 


FF 


12 1 


10 9 8 


7 


E070 













108 



APPENDIX C. FORMATS 



DISK FORMATS 



DISK SYSTEM FORMAT (DSF) 

Disk system format is the format in which absolute 
and relocatable programs (mainlines and subprograms) 
are stored on disk. Disk system format is shown in 
Figure 16. 

Program Header 

The format of words 1-12 of the program header is the 
same for all program types (see Program Types below) . 
These words contain the following information: 

Word Contents 

1 Zero 

2 Checksum, if the source was cards; 

otherwise, zero. 

3 Program type (bits 4-7), subtype (bits 0-3), 

and precision (bits 8-15) 

4 Effective program length, i. e. , the 

terminal address in the program 

5 Length of COMMON (in words) 

6 Length of the program header (in words) 

minus 9 

7 Zero 



Word Contents 

8 Length of the program, including the 

program header (in disk blocks) 

9 FORTRAN indicator (bits 0-7), number of 

files defined (bits 8-15). 
10-11 Name of entry point 1 (in name code) 
12 Address of entry point 1 (absolute for type 
1 programs, relative for all others) 

The format of words 13-54 of the program header 
varies according to the program type. For program 
types 1 and 2, the program header consists of words 
1-12 only. 

For program types 3 and 4, the program header, 
in addition to words 1-12, contains the following 
information: 

Word Contents 

13-14 Name of entry point 2 (in name code) 
15 Relative address of entry point 2 

16-17 Name of entry point 3 (in name code) 
18 Relative address of entry point 3 

19-51 Names and relative addresses of entry points 
4 through 14, as required, in the format 
shown above. The program header ends fol- 
lowing the relative address of the last entry 
point defined; hence, it is of variable length. 

For program types 5 and 6, the program header, in 
addition to words 1-12, contains the following information: 



DSF Module 
A__ 



Program Header 
(12-54 words): 
See description. 



_>\_ 



DSF Blocks 



DSF Block (2-9 Data words): 
Word 1 - Indicator Data Word 
Words 2-9 - Data Words 



Data Header (2 words): 
Word 1 - Loading oddress 
Word 2 - Number of words 
following to the next 
data header, plus the 
number of words (2) in 
the next data header 



f DSF Modules 

Data Break - 
Caused by: 

1. ORG, BSS, BES, or DSA 
statement 

2. Start of a new sector 

3. End of the program 



~^—srJ 



End-of-Program 

Data Header (2 words): 

Word 1 - Relative 
oddress of the next 
available core 
location 

Word 2 - zero 



Figure 16. Disk System Format 
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Word 



Contents 



DISK DATA FORMAT (DDF) 



13 ISS number plus 50 

14 ISS number 

15 Number of interrupt levels required* 

16 Interrupt level number associated with 

the primary interrupt* 

17 Interrupt level number associated with 

the secondary interrupt* 

*The 1442 Card Read Punch is the only device requiring 
more than one interrupt level. 

For type 7 programs, the program header, in addi- 
tion to words 1-12, contains the associated interrupt 
level number in word 13. 

Program Types 

The program types are defined as follows: 

Type Type of Program 

1 Mainline (absolute) 

2 Mainline (relocatable) 

3 Subprogram, not an ISS, referenced by a 

LIBF statement 

4 Subprogram, not an ISS, referenced by a 

CALL statement 

5 Interrupt service subroutine (ISS) 

referenced by a LIBF statement 

6 Interrupt service subroutine (ISS) 

referenced by a CALL statement 

7 Interrupt level subroutine (ILS) 



Program Subtypes 

Subtypes are defined for program types 3, 4, 5, and 7 
only. When not used, the subtype indicator in the 
program header contains a zero. 

The program subtypes are defined as follows: 



Description 

In-core subprograms 
Disk FORTRAN I/O subroutines 
Arithmetic subroutines 
Non-disk FORTRAN I/O and "Z" 

conversion subroutines 
"Z" device subroutines 
Function subprogram 
Dummy ILS02, ILS04 



Subtype 


Type 





3,4 


1 


3 


2 


3 


3 


3 


3 


5 


8 


4 


1 


7 



Disk data format is the format in which data files are 
stored on the disk. Disk data format consists of 320 
binary words per sector. There are no headers, 
trailers, indicator words, etc. 



DISK CORE IMAGE FORMAT (DCI) 

Disk core image format is the format in which a core 
image program is stored on disk. A core image pro- 
gram consists of the Core Image Header, the mainline 
program, all subprograms referenced in the mainline 
program or other subprograms (except the disk I/O 
subroutine), the Transfer Vector, and any LOCALS and 
SOCALs required. Figure 5 (see STORECI under Disk 
Utility Programs) shows the layout of a core image 
program stored on disk. 



Core Image Header 

The Core Image Header contains the following infor- 
mation: 

Word Contents 



Execution address of the core load 

Length of COMMON (in words) 

Disk I/O subroutine indicator — /FFFF 

for DISKZ, /0000 for DISKI, /0001 

forDISKN 
Number of files defined 
Length of the Core Image Header (in words) 
Sector count of files in System WS 
Loading address of the core load 
Exit control address for DISK1/N 
Length of the transfer vector (in words) 
Length of the core load (in words) 
Setting for index register 3 during execution 

of the core load 
Contents of word 8 during execution 
Contents of word 9 during execution 
Contents of word 10 during execution 
Contents of word 11 during execution 
Contents of word 12 during execution 
Contents of word 13 during execution 
Reserved 

Interrupt entry to 1231 ISS 
Interrupt entry to 1403 ISS 
Interrupt entry to 2501 ISS 
Interrupt entry to 1442 ISS 
Interrupt entry to Keyboard/ 

Console Printer ISS 
Interrupt entry to 1134/1055 ISS 
Sector count of LOCALs/SOCALs 
Core size of system on which core load built 
Define File Table checksum work area. 





Relative 


Symbol 


Address 


@>XEQ1 


1 


@>CMON 


2 


@>DREQ 


3 


@>FILE 


4 


(p)HWET 


5 


©>LSCT 


6 


@LDAD 


7 


(aXETL 


8 


(3)TVWC 


9 


@>WCNT 


10 


(SXR3X 


11 


(arrvx 


12 




13 




14 




15 




16 




17 




1S-20 




21 




22 




23 




24 




25 




26 


@OVSW 


27 


^GORE 


28 




29-30 



ITV 



IBT for ILS04 
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CARD FORMATS 



Word 



Contents 



CARD SYSTEM FORMAT (CDS) 

Card system format is the format in which absolute 
and relocatable programs (mainlines and subprograms) 
are punched into cards. Each deck in card system for- 
mat consists of (1) a header card, (2) data cards, and 
(3) an end-of -program card. 



Mainline Header Card 



The mainline header card is the first card of every 
type 1 or 2 program in card system format. It con- 
tains the following information: 



Word 



Contents 



1 


Reserved 


2 


Checksum 


3 


Type code (first 8 bits): 




0000 0001 — absolute 




0000 0010 — relocatable 




Precision code (last 8 bits): 




0000 0001 ~ standard 




0000 0010 — extended 




0000 0000 — undefined 


4 


Reserved 


5 


Length of COMMON, in words 




(FORTRAN mainline program only) 


6 


0000 0000 0000 0011 


7 


Length of the work area required, in 




words (FORTRAN only) 


8 


Reserved 


9 


Define File Count 


10-11 


Name 


12 


Relative Entry Point 


13-54 


Reserved 



Subprogram Header Card 

The subprogram header card is the first card of every 
type 3 or 4 program in card system format. It contains 
the following information: 

Word Contents 

1 Reserved 

2 Checksum 

3 Type code (first 8 bits): 

0000 0011 — to be called by a LIBF 

statement only 
0000 0100 ~ to be called by a CALL 

statement only 



Precision code (last 8 bits): 
0000 0001 — standard 
0000 0010 — extended 
0000 0000 ~ undefined 
4-5 Reserved 

6 Number of entry points times three 
7-9 Reserved 
10-11 Name of entry point 1 (in name code) 

12 Relative address of entry point 1 
13-51 Names and relative addresses of entry 

points 2 through 14, as required 
52-54 Reserved 



ISS Header Card 

The ISS header card is the first card of every type 
5 or 6 program in card system format. It contains 
the following information: 



Word 



Contents 



1 


Reserved 


2 


Checksum 


3 


Type code (first 8 bits): 




0000 0101 — to be called by a LIBF 




statement only 




0000 0110 ~ to be called by a CALL 




statement only 




Precision code (last 8 bits): 




0000 0001 ~ standard 




0000 0010 ~ extended 




0000 0000 ~ undefined 


4-5 


Reserved 


6 


Number of interrupt levels required 




plus 6 


7-9 


Reserved 


10-11 


Subroutine name (in name code) 


12 


Relative entry point address 


13-14 


Reserved for parameters used by the 




1130 Card/Paper Tape System 


15 


Number of interrupt levels required* 


16 


Interrupt level number associated with 




the primary interrupt* 


17 


Interrupt level associated with the 




secondary interrupt level* 


18-29 


Reserved 


30 


One 


31-54 


Reserved 



*The 1442 Card Read Punch is the only device re- 
quiring more than one interrupt level. 
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ILS Header Card 



Word 



Contents 



The ILS header card is the first card of every type 7 
program in card system format. It contains the 
following information: 



Word 


Contents 


1 


Reserved 


2 


Checksum 


3 


Type code (first 8 bits): 




0000 0111 




Reserved (last 8 bits) 


4-5 


Reserved 


6 


0000 0000 0000 0100 


7-9 


Reserved 


10-12 


Reserved 


13 


Interrupt level number 


14-54 


Reserved 


Data Cards 



In all types of programs, data cards contain the instruc- 
tions and data that constitute the machine language pro- 
gram. The format of each data card is as follows: 

Word Contents 

1 The loading address of the first data word in 

the card. Succeeding words go into higher- 
numbered core locations. The relocation 
factor must be added to this address to obtain 
the actual load address. For an absolute 
program the relocation factor is zero. 

2 Checksum 

3 Type code (first 8 bits); 

0000 1010 
Count of data words, excluding indicator data 
words, in this card (last 8 bits) 
4-9 Relocation indicator data words (2 bits for 
each following data word): 

00 — absolute 

01 — relocatable 

10 ~ LIBF 

11 — CALL 
10 Data word 7 

11-54 Data words 8 through 51 



End-of -Program (EOP) Card 

The end-of-program card is the last card of all pro- 
grams in card system format. It contains the follow- 
ing information: 



4 
5-54 



Effective length of the program. This number 
is always even and is assigned by the Assem- 
bler, or FORTRAN Compiler. 

Checksum 

Type code (first 8 bits): 
0000 1111 

Last 8 bits: 
0000 0000 

Execution address (mainline program only) 

Reserved 



Sector Break Cards 

Sector break cards are binary cards used by the 
System Loader to cause programs or phases of 
programs to start loading at the beginning of a sec- 
tor. The Monitor system uses Type 1 loader cards 
as sector break cards. The sector break cards are 
not checksummed. Columns 5-72 of the sector break 
cards may contain information identifying the program 
phase being loaded. The card sequence number appears 
in columns 73-80. Columns 5-80 are punched in IBM 
Card Code. 

Type 1 cards are identified by a 1 punch in col- 
umn 4 (binary word 3). A Type 1 card indicates to 
the System Loader that it should check word 11 of 
the first data card that follows. For the Resident 
Image, Cold Start Program, and Phase 1 or the Sys- 
tem Loader, word 11 contains an absolute starting 
sector address. For all other Monitor programs 
or phases word 11 contains the phase ID. Recog- 
nition of a phase ID during initial load causes the 
System Loader to load the program or phase start- 
ing at the next sequential sector. During a reload, 
the phase ID is matched with the ID in SLET and the 
phase is loaded to the sector address indicated in 
SLET. 

On an initial load, phase 1 of DUP starts loading 
at sector 8. 

A type 2 (relocatable starting sector address 
sector break card is processed by the Monitor 
system as a Type 1 sector break card. 



CARD DATA FORMAT (CDD) 

Card data format is the format in which data files are 
punched into cards. Card Data format consists of 54 
binary words per card. Each binary word occupies 
1-1/3 columns. There are no headers, trailers, 
indicator words, etc. 

Card Data format is illustrated in Figure 17. 
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CARD CORE IMAGE FORMAT (CDC) 

Card core image format is the format in which core 
image programs are punched into cards. Card core 
image format is identical to card data format; that is, 
one binary word occupies 1-1/3 columns and 54 binary 
words can be punched per card. 



record. A data record in paper tape (data or core 
image) format contains a maximum of 108 frames (54 
binary words) plus the 2 special frames. 

Information that would appear in columns 73-80 in 
card format must not appear in paper tape format. 



PRINT FORMAT 



PAPER TAPE FORMATS 

The paper tape formats — paper tape system format 
(PTS), paper tape data format (PTD), and paper tape 
core image format (PTC) — are analogous to the cor- 
responding card formats (see above). 

Two frames in paper tape (data or core image) 
format contain one binary word and are equivalent 
to 1-1/3 columns in card (data or core image) format. 
A data record in paper tape (data or core image) format 
differs from a data record in card (data or core image) 
format in that 2 special frames precede the data record; 
the first contains 1F\q, and the second contains the 
word count, one-half the number of frames in this data 



PRINT DATA FORMAT (PRD) 

Print data format is the format in which DUP prints a 
DSF program, core image program, or data file on a 
print device (1403, 1132, or Console Printer). 

The Address which precedes each printed line is the 
core address of Word 1 on that line if a core image 
program is being printed. If a DSF program or data 
file is being printed, the Address is the address of Word 
1 on that line relative to the start of the DSF program 
or data file. Each Word printed consists of four hexa- 
decimal characters and represents one binary word. 
Figure 18 illustrates the DSF and core image print 
format. 



Word 1 



Word 54 




3F B 

0C8J22222222 
10933333333 I 
2.EA44444444 
B55555555 «j 

66666666 2 
5J1077777777 

B8888888 



Figure 17. Card Data Format 
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DSF 

♦ DUMP 
ADDR 

CCOO 
0010 
0020 
CC30 
C040 
0050 
CC60 
0070 
C080 
0090 
COAO 
OOBO 
COCO 
OODO 
COEO 
COFO 
0100 
0110 
0120 
0130 

0140 
0150 



UA PR SYSUP 
***0 ***! ***2 ***3 



***4 **«5 ***6 ***7 



***8 ***9 ***A ***B 



***C ***D ***E ***F 



CCOO 
DCOO 
C101 
C400 
0C02 
OOBF 
1890 
11C0 
OOOF 
0864 
D400 
C047 
7101 
7400 
00B4 
00C5 
OCCO 
9800 
40E2 
C540 



B043 
0242 
068A 
C02C 
0020 
C400 
4400 
4C18 
1010 
1003 
COOA 
D5C0 
70C9 
0044 
0010 
C004 
C001 
AOOO 
C7C5 
0398 



0100 0000 
C600 03FE 



0400 
2C00 
88A4 
1101 
0035 
0OD8 
C0F2 
005C 
C400 
4C28 
C054 
OOCB 
C045 
0036 
4440 
COOO 
COCO 
C0F4 
C340 
CCOO 

1890 
1010 



COOO 
01BC 
0400 
DCOO 
C040 
1890 
7400 
4400 
CODE 
4100 
D400 
C041 
0400 
70FD 
00B9 
COCO 
COBE 
0035 
4040 
4400 

4400 
D600 



OCOO 
6D00 
010E 
023E 
61FB 
4400 
OOEE 
0244 
D400 
007B 
009A 
D600 
OOOA 
6100 
9500 
OOCB 
OOCC 
4000 
C3C1 
0201 

00F2 
0464 



0003 
01BE 
6500 
C400 
C500 
0004 
70FD 
7201 
OOOA 
1810 
0000 
C0E5 
C480 
6 600 
OOCO 
0C06 
4040 
0OF5 
D9E3 
C0E2 



COOO 
6E00 
00A4 
0230 
COOC 
C0F2 
C400 
005A 
C500 
D500 
C056 
0410 
C006 
C0E5 
4C18 
CCOO 
03FE 
0017 
CCOO 
1890 



0000 
4 700 
6D00 
D400 
0500 
7400 
4101 
0035 
00E5 
OOCB 
1890 
C03F 
4420 
6E00 
010F 
FFFF 
0000 
D3D6 
40C1 
C600 



0000 
01C0 
02E1 
002C 
00C5 
OOEE 
0301 
0001 
D400 
701E 
4400 
0600 
4044 
02F0 
7201 
0004 
0600 
C740 
E5C1 
4411 



22A2 

6F00 
04C0 
C480 
7101 
70FD 
0071 
1000 
009F 
0000 
O0F2 
O0E6 
036E 
6200 
ICOO 
OCCO 
0701 
C4D9 
C9D3 
0CC6 



2917 
01C2 
1810 
CCOO 
70FA 
C07E 
D400 
70F7 
0000 
085B 
7400 
C03C 
C053 
1100 
7403 
00D2 
0077 
C9E5 
4040 
4400 



0000 
0689 
D400 
1100 
7C0C 
4C20 
OOOB 
61FB 
E871 
4CC0 
0087 
0600 
1890 
C600 
4000 
0018 
0000 
C540 
D7C8 
0244 



COOO 


0035 


0444 


0000 


3155 


0099 


4408 


0028 


OODB 


C400 


009F 


1890 


4C28 


0035 


84C0 


OOBE 


OHO 


1001 


1801 


D400 


0051 


C400 


4000 


0100 


10AO 


6200 


C600 


OOCO 


6200 


C400 


OOOA 


D400 


0067 


E870 


D067 


0863 


4000 


0077 


3000 


C062 


0035 


0041 


OOEE 


70FD 


00E7 


7203 


1000 


0000 


C400 


033C 


4480 


010E 


O0C6 


4C28 


0105 


4C08 


02F0 


70F1 


0005 


OCOO 


4005 


0006 


CCCO 


0292 


2000 


8800 


0000 


9000 


4040 


0000 


C3C1 


D9E3 


E840 


C4D9 


C9E5 


1040 


C0C3 


4C20 


012F 


C400 



7400 COEE 0121 
7201 70FA 4400 



0410 0001 
0420 COOO 
CART ID 3333 



03FE 0005 COCO 
COOO 0000 0000 
OB ADDR 19DB DB CNT 0035 

L 



0064 CCOO 0478 COOC 



0035 0401 70FD C400 
0285 62FB C600 4404 



0000 OCOO 0000 0000 



03A2 0400 OOEO 629C 
OOCB D600 03D1 7201 



OOOO 0000 CCOO 0000 



Vz 



Disk block on sector. For Data Files, this position will always be (Data Files must start onasector boundary). 
Sector 



Core Image (note that the actual starting address is 2409) 



♦ OUMP 


FX PR 


CIMGE 




























ACDR 


***o 


***1 


***2 


»**3 


***4 


***5 


***6 


***7 


***8 


***9 


***A 


***e 


***c 


***D 


***E 


***F 


2400 




















4222 


8024 


0408 


4018 


1082 


09C0 


2409 


2410 


OCCO 


COOO 


8408 


2000 


0000 


2209 


0000 


COOO 


8209 


0024 


0900 


08C0 


OOOO 


OOOO 


1002 


OOOO 


2420 


0000 


0000 


0000 


0000 


COOO 


0000 


CCOO 


0000 


OOCO 


OCOO 


0000 


0000 


OOOO 


OOOO 


OOOO 


OOOO 


2430 


OOCO 


CCOO 


COOO 


COOO 


CCOO 


OCOC 


CCOO 


0000 


0000 


OCOO 


COOO 


OOOO 


OCOO 


OOOO 


OCOO 


COOO 


2440 


FDFF 


02C0 


COOO 


COOO 


0000 


COOO 


OCOO 


0000 


0000 


OCOO 


COOO 


OOOO 


OOOO 


OOOO 


COCO 


OOOO 


2450 


CCCO 


0000 


COOO 


0000 


0000 


0000 


0000 


0000 


0000 


CCOO 


0000 


OOCO 


OOOO 


OOOO 


OOOO 


OOOO 


2460 


0000 


0000 


0000 


0000 


0000 


0000 


CCOO 


0000 


0000 


0000 


0000 


OOOO 


OOOO 


OOOO 


OOOO 


OOOO 


2470 


0000 


CCOO 


COCO 


COOC 


0000 


0000 


0B21 


0A03 


0000 


OCOO 


COOO 


OOOO 


OOOO 


OOOO 


7DD4 


D6C4 


2480 


C640 


COCO 


COCO 


COOO 


0000 


CCOO 


CCOO 


0000 


0000 


CCCO 


0000 


OOOO 


OOOO 


OOOO 


OOOO 


OOOO 


2490 


CCOO 


COOO 


COOO 


0000 


0000 


COOO 


0000 


0000 


0000 


OCOO 


0000 


OOOO 


OOOO 


OOOO 


OOOO 


OCOO 


24A0 


0000 


0000 


0000 


COOO 


COOO 


OCOO 


CCCO 


0000 


0000 


0000 


0000 


0004 


F6A4 


0A2D 


1110 


030C 


24B0 


1CC0 


0001 


0441 


0440 


7000 


01F4 


7000 


0110 


7000 


0111 


7C01 


OOOO 


C8F7 


4400 


00F2 


0689 


24C0 


3155 


0099 


068A 


88A4 


D400 


OOAF 


C400 


OOEE 


4820 


7CFC 


C8EB 


4400 


0OF2 


C400 


OOEE 


4820 


2400 


70FC 


C076 


C400 


0111 


C8E3 


4480 


OOAF 


4480 


OOAF 


C06D 


4480 


OOAF 


C06A 


4480 


OOAF 


6500 


24E0 


013B 


0031 


8BE6 


0A2D 


1044 


0440 


4111 


0010 


0110 


0400 


6D00 


OOOB 


C806 


4480 


OOAF 


6500 


24F0 


0179 


6902 


C8D0 


4480 


COAF 


6500 


C1B7 


69CC 


C8CA 


4480 


OOAF 


C054 


4480 


OOAF 


66C0 


01F6 



2500 
21.10 
2520 
2530 
2540 
2550 
256C 
2570 
2580 
2590 
25A0 
25B0 
25C0 
25D0 
25E0 
25F0 

2600 
2610 
2620 
2630 
2640 
2650 
2660 
2670 
2680 
CART I 



6700 
7104 
1088 
CCCO 
4048 
0010 
C018 
OCOO 
OCOO 
0004 
OCOO 
7C02 
0C4O 
D0D7 
1084 
1211 

OOOO 
OOOO 
OCCO 
0FB1 
09CB 
CCDD 
0F63 
0A13 
9600 
D 3333 



013C 
70F9 
D7C0 
C83b 
C826 
OOOO 
70C8 

cooo 

COOO 
OOFfc 
CCCO 
7201 
0400 
7301 
90AF 
CA02 

OOOO 
COOO 
CCCO 
D851 
C400 
D6C0 
C50U 
ECOO 
0FC8 
DB AD 



6B24 
63FA 
OHO 
4056 
4046 
COCO 
7002 
COCO 
OOOO 
0004 
6700 
7082 
7400 
7401 
4808 
CCCO 

OOOO 
OOOO 
CCOO 
9832 
0A48 
CA48 
0F5E 
0F35 
4C18 
CR 122 



6500 
C500 
F04B 
C82C 
6BEC 
COOO 
C028 
COCO 
009E 
0102 
013B 
4C0O 
0OB1 
00B3 
80AE 
COOO 

OOOO 
COOO 
COOO 
4C20 
D400 
C0D6 
C061 
D400 
0A05 
DB 



FE54 
0623 
4C18 
4054 
COEB 
OOOO 
00A1 
OOOO 
8429 
0004 
6F00 
0038 
7006 
74, -F 
80AE 
OOOO 

OOOO 
OOOO 
OOOO 
05F3 
CA43 
D600 
1890 
0F98 
7201 
CNT OC 



C200 
18D0 
0095 
C82C 
9026 
OOOO 
0009 
CCOO 
0A2D 
0106 
COOB 
OOOO 
C480 
00B2 
D500 
COOO 

COOO 
OOOO 
9500 
1090 
C07F 
0A46 
C400 
C400 
70F8 



4C18 
1010 
1010 
4052 
4C18 
7201 
0C39 
OOOO 
1111 
COOS 
CCCO 
D0E9 
O0B3 
70EB 
010A 
OOOO 

CCOO 
OOOO 
0F63 
4C18 
1890 
C0D4 
0864 
0C56 
C400 



008D 
005E 
1088 
C828 
C0B4 
7OB0 
OOCO 
OOOO 
1140 
010A 
OOOA 
1800 
1008 
4C80 
7101 
OOOC 

OOOO 
OOOO 
4C18 
06B0 
4400 
D60C 
4400 
1890 
0698 



9049 
EFB5 
D700 
4050 
C817 
61EA 
OOOO 
OOOO 
0001 
0178 
4480 
D0E8 
D300 
00C7 
7004 
7201 

OOOO 
OOOO 
09B6 
OOOO 
00F2 
0A47 
00F2 
4400 
4C00 



4818 
0A2D 
0111 
C82A 
403F 
C01C 
COOO 
CCCO 
1110 
0040 
OOAF 
0CC8 
68DE 
OOOO 
6500 
70EB 

OOOO 
CCOO 
70CA 
CCCO 
7400 
COOE 
74CC 
00F2 



685E 
0410 
7101 
404E 
C815 
D500 
OOOO 
OOOO 
0100 
0040 
C400 
970F 
7007 
690F 
OOOO 
COOO 

OCOO 
OOOO 
7112 
COOO 
OOEE 
D400 
OOEE 
7400 



C200 
1004 
7 302 
C824 
403D 
0110 
OOOO 
OOCO 
COOO 
007C 
0036 
0A2D 
C300 
61F0 
4C80 
OOCO 

OOOO 
OOOO 
4528 
6AFD 
70FD 
0A48 
70FD 
OOEE 



9500 
OOOO 
70EF 
404C 
6BE3 
7101 
OCOO 
OCOO 
0002 
00 7D 
4820 
1040 
EC80 
63FC 
0OE2 
OOOO 

OOOO 
OOOO 
FOOO 
CODF 
6600 
CODC 
C500 
70FD 



0622 
OOOO 
4400 
C828 
008B 
70FB 
OOOO 
OOOO 
OOAB 
OOOO 
70FC 
0100 
00B3 
C200 
7301 
OOOO 

OOOO 
OOOO 
OOOO 
90FB 
0139 
D400 
0032 
62FB 



4C18 
0001 
C0E2 
404A 
B2EF 
7203 
OOOO 
CCOO 
0002 
OOOO 
74C0 
1104 
D300 
1800 
70F0 
OOOO 

OOOO 
OOOO 
OOOO 
DOFA 
6AEA 
0A4 7 
EOBD 
C500 



C059 
OOOO 
6700 
C820 
0A12 
70D8 
COOO 
OOOO 
OOFC 
OOOO 
OOBO 
OOOO 
1010 
1010 
OOFS 
OOOO 

OOOO 
OOOO 
OOOO 
4C10 
6203 
C500 
4C08 
0F72 



20 



Figure 1 8. Dump of DSF and Core Image Program 



114 



APPENDIX D. DISK STORAGE UNIT CONVERSION FACTORS 





Word 


Disk Block 


Sector 


Track 


Cylinder 


Disk 


iNo. OfJ |Per> 


Bits 


16 


320 


5,112 


20,480 


40,960 


8,192,000 


Data Words 




20 


320* 


1,280 


2,560 


512,000 


Disk Block 






16 


64 


128 


25,600 


Sectors 








4 


8 


1,600 


Tracks 










2 


400 


Cylinders 












200 



*These follow the first actual word of each sector, which is used for the address. 
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APPENDIX E. DECIMAL AND HEXADECIMAL DISK ADDRESSES 



SECTOR 


SECTOR 


CYLINDER 


CYLINDER 


ADDRESS 


ADDRESS 


ADDRESS 


ADDRESS 


BASE 10 


BASE 16 


BASE 10 


BASE 16 


+00000 


0000 


+00000 


0000 


+00008 


0008 


+O0OO1 


0001 


+00016 


0010 


+00002 


0002 


+00024 


0018 


+00003 


0003 


+00032 


0020 


+00004 


0004 


+00040 


0028 


+00005 


0005 


+00048 


0030 


+00006 


0006 


+00056 


0038 


+00007 


0007 


+00064 


0040 


+00008 


0008 


+00072 


0048 


+00009 


0009 


+00080 


0050 


+00010 


OOOA 


+00088 


0058 


+00011 


OOOB 


+00096 


0060 


+00012 


OOOC 


+00104 


0068 


+00013 


OOOD 


+00112 


0070 


+00014 


OOOE 


+00120 


0078 


+00015 


OOOF 


+00128 


0080 


+00016 


0010 


+00136 


0088 


+00017 


0011 


+00144 


0090 


+00018 


0012 


+00152 


0098 


+00019 


0013 


+00160 


00A0 


+00020 


0014 


+00168 


00A8 


+00021 


0015 


+00176 


00B0 


+00022 


0016 


+00184 


00B8 


+00023 


0017 


+00192 


ooco 


+00024 


0018 


+O02OO 


O0C8 


+00025 


0019 


+00208 


00D0 


+00026 


001A 


+00216 


00D8 


+00027 


001 B 


+00224 


OOEQ 


+00028 


001C 


+00232 


0OE8 


+00029 


001 D 


+00240 


OOFO 


+00030 


001E 


+00248 


O0F8 


+00031 


001F 


+00256 


0100 


+00032 


0020 


+00264 


0108 


+00033 


0021 


+00272 


0110 


+00034 


0022 


+00280 


0118 


+00035 


0023 


+00288 


0120 


+00036 


0024 


+00296 


0128 


+00037 


0025 


+00304 


0130 


+00038 


0026 


+00312 


0138 


+00039 


0027 


+00320 


0140 


+00040 


0028 


+00328 


0148 


+00041 


0029 


+00336 


0150 


+00042 


002A 


+00344 


0158 


+00043 


0O2B 


+00352 


0160 


+00044 


002C 


+00360 


0168 


+00045 


002D 


+00368 


0170 


+00046 


002E 


+00376 


0178 


+00047 


002F 


+00384 


0180 


+00048 


0030 


+00392 


0188 


+00049 


0031 


+00400 


0190 


+00050 


0032 


+00408 


0198 


+00051 


0033 


+00416 


01A0 


+00052 


0034 


+00424 


01A8 


+00053 


0035 


+00432 


01B0 


+00054 


0036 


+00440 


01B8 


+00055 


0037 


+00448 


01C0 


+00056 


0038 


+00456 


01C8 


+00057 


0039 


+00464 


01D0 


+00058 


003A 


+00472 


01D8 


+00059 


003B 


+00480 


01E0 


+00060 


003C 


+00488 


01E8 


+00061 


003D 


+00496 


01FO 


+00062 


003E 


+00504 


01F8 


+00063 


003F 


+00512 


0200 


+00064 


0040 


+00520 


0208 


+00065 


0041 


+00528 


0210 


+00066 


0042 


+00536 


0218 


+00067 


0043 


+00544 


0220. 


+00068 


0044 


+00552 


0228 


+00069 


0045 


+00560 


0230 


+00070 


0046 


+00568 


0238 


+00071 


0047 


+00576 


0240 


+00072 


0048 


+00584 


0248 


+00073 


0049 


+00592 


0250 


+00074 


004A 


+00600 


0258 


+00075 


004B 


+00608 


0260 


+00076 


004C 


+00616 


0268 


+00077 


004D 


+00624 


0270 


+00078 


004E 


+00632 


0278 


+00079 


004F 


+00640 


0280 


+00080 


0050 


+00648 


0288 


+00081 


0051 


+00656 


0290 


+00082 


0052 


+00664 


0298 


+00083 


0053 


+00672 


02A0. 


+00084 


0054 


+00680 


02A8 


+00085 


0055 


+00688 


02B0 


+00086 


0056 


+00696 


02B8 


+00087 


0057 


+00704 


02C0 


+00088 


0058 


+00712 


02C8 


+00089 


0059 


+00720 


02D0 


+00090 


005A 


+00728 


02D8 


+00091 


005B 


+00736 


02E0 


+00092 


005C 


+00744 


02E8 


+00093 


005D 


+00752 


02F0 


+00094 


005E 


+00760 


02F8 


+00095 


005F 


+00768 


0300 


+O0096 


0060 


+00776 


0308 


+OO097 


0061 


+00784 


0310 


+00098 


0062 


+00792 


0318 


+00099 


0063 



SECTOR 


SECTOR 


CYLINDER 


CYLINDER 


ADDRESS 


ADDRESS 


ADDRESS 


ADDRESS 


BASE 10 


BASE 16 


BASE 10 


BASE 16 


+00800 


0320 


+00100 


0064 


+00808 


0328 


+00101 


0065 


+00816 


0330 


+00102 


0066 


+00824 


0338 


+00103 


0067 


+00832 


0340 


+00104 


0068 


+00840 


0348 


+00105 


0069 


+00848 


0350 


+00106 


006A 


+00856 


0358 


+00107 


006B 


+00864 


0360 


+00108 


006C 


+00872 


0368 


+00109 


006D 


+00880 


0370 


+00110 


006E 


+00888 


0378 


+00111 


006F 


+00896 


0380 


+00112 


0070 


+00904 


0388 


+00113 


0071 


+00912 


0390 


+00114 


0072 


+00920 


0398 


+00115 


0073 


+00928 


Q3A0 


+00116 


0074 


+00936 


03A8 


+00117 


0075 


+00944 


03BO 


+00118 


0076 


+00952 


03B8 


+00119 


0077 


+00960 


P3C0 


+00120 


0078 


+00968 


03C8 


+00121 


0079 


+00976 


03D0 


+00122 


007X 


+00984 


03D8 


+00123 


007B 


+00992 


03EO 


+O0124 


007C 


+01000 


03E8 


+00125 


007D 


+01008 


03FO 


+00126 


007E 


+01016 


03F8 


+00127 


007F 


+01 024 


0400 


+00128 


0080 


+01032 


0408 


+00129 


0081 


+01040 


0410 


+00130 


0082 


+01048 


0418 


+00131 


0083 


+01056 


0420 


+00132 


0084 


+01064 


0428 


+00133 


0085 


+01072 


0430 


+00134 


0086 


+01080 


0438 


+00135 


0087 


+01088 


0440 


+00136 


0088 


+01096 


0448 


+00137 


0089 


+01104 


0450 


+00138 


008A 


+01112 


0458 


+00139 


008B 


+01120 


0460 


+00)40 


008C 


+01128 


0468 


+00141 


008D 


+01136 


0470 


+00142 


008E 


+01144 


0478 


+00143 


008F 


+01152 


0480 


+00144 


0090 


+01160 


0488 


+00l45 


0091 


+01168 


0490 


+00146 


0092 


+01176 


0498 


+00147 


0093 


+01184 


04A0 


+00148 


0094 


+01192 


04A8 


+00149 


0095 


+01200 


Q4B0 


+00150 


0096 


+01208 


04B8 


+00151 


0097 


+01216 


04C0 


+00152 


0098 


+01224 


04C8 


+00153 


0099 


+01232 


04D0 


+00154 


009A 


+01240 


04D8 


+00155 


009B 


+01248 


04E0 


+00156 


009C 


+01256 


04E8 


+00157 


009D 


+01264 


04F0 


+00158 


009E 


+Q1272 


04F8 


+00159 


009F 


+01280 


0500 


+00160 


OOAO 


+01288 


0508 


+00161 


00A1 


+01296 


0510 


+00162 


00A2 


+01304 


0518 


+00163 


O0A3 


+01312 


0520 


+00164 


00A4 


+01320 


0528 


+00165 


00A5 


+01328 


0530 


+00166 


00A6 


+01336 


0538 


+00167 


00A7 


+01344 


0540 


+00168 


O0A8 


+01352 


0548 


+00169 


00A9 


+01360 


0550 


+00170 


OOAA 


+01368 


0558 


+00171 


OOAB 


+01376 


0560 


+00172 


OOAC 


+01384 


0568 


+00173 


OOAD 


+01392 


0570 


+00174 


OOAE 


+01400 


0578 


+00175 


OOAF 


+01408 


0580 


+00176 


OOBO 


+01416 


0588 


+00177 


O0B1 


+01424 


0590 


+00178 


00B2 


+01432 


0598 


+00179 


00B3 


+01440 


05A0 


+00180 


00B4 


+01448 


05A8 


+00181 


00B5 


+01456 


05B0 


+00182 


O0B6 


+01464 


05B8 


+00183 


00B7 


+01472 


05C0 


+00184 


O0B8 


+01 480 


05C8 


+00185 


00B9 


+01488 


05D0 


+00186 


OOBA 


+01496 


05D8 


+00187 


OOBB 


+01504 


05E0 


+00188 


OOBC 


+01512 


05E8 


+O0189 


OOBD 


+01520 


05F0 


+00190 


OOBE 


+01528 


05F8 


+00191 


OOBF 


+01536 


0600 


+00192 


OOCO 


+01544 


0608 


+00193 


O0C1 


+01552 


0610 


+00194 


0OC2 


+01560 


0618 


+00195 


00C3 


+01568 


0620 


+00196 


00C4 


+01576 


0628 


+00197 


00C5 


+01584 


0630 


+00198 


00C6 


+01592 


0638 


+00199 


00C7 
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Type and sub-type are defined in Appendix C. 



APPENDIX F. MONITOR SYSTEM LIBRARY LISTING 



System Library Programs 


Names 


Type and 
Sub-type 


Subroutines Required 


ID Field 
(cc 73 - 75) 


MAINLINES 










Disk Maintenance Programs 










Disk Initialization 


DISC 


2,0 


SYSUP, RDREC, DISKZ 


U6C 


Print Cartridge ID 


IDENT 


2,0 


CALPR, DISKZ 


U6F 


Change Cartridge ID 


ID 


2,0 


RDREC, CALPR, DISKZ 


U6G 


Disk Copy 


COPY 


2,0 


RDREC, DISKZ 


U6B 


Writer Sector Addresses in WS 


ADRWS (cannot be called) 


2 


Linked From DUP DWADR 


U6A 


Delete CIB 


DLCIB 


2,0 


RDREC, DISKZ 


U6D 


Dump System Location 










Equivalence Table 


DSLET 


2,0 


FSLEN, DISKZ 


U6E 


System Maintenance 


MOD IF 


- 


DISKZ 


U6H 


Paper Tape Utility 










Keyboard or 1134 Input/Console Printer 


or 1055 Output 


PTUTL 


— 




U6I 


SUBROUTINES 










Utility Calls 










Selective Dump on Console Printer 


DMTDO, DMTXO 


4,0 


WRTY0 


U5B 


Selective Dump on 1132 Printer 


DMPD1, DMPX1 


4,0 


PRNT1 


U5C 


Dump 80 Subroutine 


DMP80 


4,0 


None 


U5A 


Update DCOM 


SYS UP 


4,0 


FSLEN, FSYSU 


U5E 


Call System Print 


CALPR 


4,0 


FSLEN 


U7A 


Read *ID Record 


RDREC 


4,0 


FSLEN 


U7C 


Fetch Phase IDs or, Fetch System Subroutine 


FSLEN, FSYSU 


4,0 


DISKZ 


U7B 


Common FORTRAN Calls 










Test Data Entry Switches 


DATSW 


4,8 


None 


T3A 


Divide Check Test 


DVCHK 


4,8 


None 


T3B 


Functional Error Test 


FCTST 


4,8 


None 


T3C 


Overflow Test 


OVERF 


4,8 


None 


T3E 


Sense Light Control and Test 


SLITE, SLITT 


4,8 


None 


T3G 


FORTRAN Trace Stop 


TSTOP 


4,8 


TSET 


T3H 


FORTRAN Trace Start 


TSTRT 


4,8 


TSET 


T3I 


Integer Transfer of Sign 


ISIGN 


4,8 


None 


T3D 


Extended Arith/Funct Calls 










Extended Precision Hyperbolic Tangent 


ETANH, ETNH 


4,8 


EEXP, ELD/ESTO, EADD, EDIV,EGETP 


S2I 


Extended Precision A**B Function 


EAXB, EAXBX 


4,8 


EEXP, ELN, EMPY 


S2C 


Extended Precision Natural Logarithm 


ELN, EALOG 


4,8 


XMD, EADD, EMPY, EDIV, NORM, EGETP 


S2E 


Extended Precision Exponential 


EEXP, EXPN 


4,8 


XMD, FARC, EGETP 


S2D 


Extended Precision Square Root 


ESQR, ESQRT 


4,8 


ELD/ESTO, EADD, EMPY, EDIV, EGETP 


S2H 


Extended Precision Sine-Cosine 


ESIN, ESINE, ECOS, ECOSN 


4,8 


EADD, EMPY, NORM, XMD, EGETP 


S2G 


Extended Precision Arctangent 


EATN, EATAN 


4,8 


EADD, EMPY, EDIV, XMD, EGETP, NORM 


S2B 


Extended Precision Absolute Value Function 


EABS, EAVL 


4,8 


EGETP 


S2A 


FORTRAN Sign Transfer Calls 


ESIGN 


4,8 


ESUB, ELD 


S2F 


Extended Precision Transfer of Sign 


Standard Precision Transfer of Sign 


FSIGN 


4,8 


FSUB, FLD 


R2F 


Standard Arith/Funct Calls 


FTANH, FTNH 


4,8 


FEXP, FLD/FSTO, FADD, FDIV, FGETP 


R2I 


Standard Precision Hyperbolic Tangent 


Standard Precision A**B Function 


FAXB, FAXBX 


4,8 


FEXP, FLN, FMPY 


R2C 


Standard Precision Natural Logarithm 


FLN, FALOG 


4,8 


FSTO, XMDS, FADD, FMPY, FDIV, NORM, FGETP 


R2E 


Standard Precision Exponential 


FEXP, FXPN 


4,8 


XMDS, FARC, FGETP 


R2D 


Standard Precision Square Root 


FSQR, FSQRT 


4,8 


FLD/FSTO, FADD, FMPY, FDIV, FGETP 


R2H 


Standard Precision Sine-Cosine 


FSIN, FSINE, FCOS, FCOSN 


4,8 


FADD, FMPY, NORM, XMDS, FSTO, FGETP 


R2G 


Standard Precision Arctangent 


FATN, FATAN 


4,8 


FADD, FMPY, FDIV, XMDS, FSTO, FGETP 


R2B 


Standard Precision Absolute Value Function 


FABS, FAVL 


4,8 


FGETP 


R2A 


Common Arith/Funct Calls 


XSQR 


4,8 


None 


TIC 


Fixed Point (Fractional) Square Root 


Integer Absolute Function 


IABS 


4,8 


None 


TIB 


Floating Binary /EBC Decimal Conversions 


FBTD (BIN. TO DEC.) 
FDTB(DEC. TO BIN.) 


4,0 


None 


T1A 
T1A 


Flipper for LOCAL SOCAL Subprograms 


FLIPP 

SEAR, SEARX 


4,0 
3,0 


DISKZ, DISK1, or DISKN 

ESTO, TTEST, SWRT, SIOF, SCOMP 


U5D 
S2J 


FORTRAN Trace Subroutines 


Extended Floating Variable Trace 


Fixed Variable Trace 


SIAR, SIARX 


3,0 


TTEST, SWRT, SIOI, SCOMP 


T6B 


Standard Floating IF Trace 


SFIF 


3,0 


FSTO, TTEST, SWRT, SIOF, SCOMP 


R2K 


Extended Floating IF Trace 


SEIF 


3,0 


FSTO, TTEST, SWRT, SIOF, SCOMP 


S2K 


Fixed IF Trace 


SIIF 


3,0 


TTEST, SWRT, SIOI, SCOMP 


T6C 


Standard Floating Variable Trace 


SFAR, SFARX 


3,0 


FSTO, TTEST, SWRT, SIOF, SCOMP 


R2J 


GO TO Trace 


SGOTO 


3,0 


TTEST, SWRT, SIOI, SCOMP 


T6A 
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System Library Programs 


Names 


Type and 
Sub-type 


Subroutines Required 


ID Field 
(cc 73 - 75) 




Non-Disk FORTRAN Format I/O 


SFIO, SIOI, SIOAI, SIOF, SIOAF, 


3,3 


FLOAT, ELD/ESTO or FLD/FSTO, IFIX 


T4C 




FORTRAN Format Subroutine 






SIOFX, SCOMP, SWRT, SRED, SIOIX 










FORTRAN Find Subroutine 


SDFND 

SDFIO, SDRED, SDWRT, SDCOM, 
SDAF, SDF, SDI, SDIX, SDFX, SDAI 


3,1 
3,1 


DISKZ, DISK1 or DISK2 
DISKZ, DISK1 or DISK2 


T4B 
T4A 




Disk FORTRAN I/O 








FORTRAN Unformatted Disk I/O 


UFIO 


3,1 


DISKZ, DISK1 orDISK2 


T4D 




FORTRAN Common LIBFs 


PAUSE 


3,2 


None 


T2A 




FORTRAN Pause 




FORTRAN Stop 


STOP 


3,2 


None 


T2B 




FORTRAN Subscript Displacement 


SUBSC 


3,0 


None 


T2D 




Calculation 












FORTRAN Subroutine Initialization 


SUBIN 


3,0 


None 


T2C 




FORTRAN Trace Test and Set 


TTEST, TSET 


3,0 


None 


T2E 




FORTRAN I/O and Conversion Subroutines 


CARDZ 


5,3 


HOLEZ, GETAD, EBCTB, HOLTB, ILS00, ILS04 


T5A 




FORTRAN 1442 Input/Output Subroutine 




FORTRAN 1442 Output Subroutine 


PNCHZ 


5,3 


HOLEZ, GETAD, EBCTB, HOLTB, ILS00, ILS04 


T5G 




FORTRAN 2501 Input Subroutine 


READZ 


5,3 


HOLEZ, GETAD, EBCTB, HOLTB, ILS04 


T5J 




Disk I/O Routine (Part of Supervisor) 


DISKZ 


- 


ILS02 


— 




FORTRAN Paper Tape Subroutine 


PAPTZ 


5,3 


ILS04 


T5F 




FORTRAN 1132 Printer Subroutine 


PRNTZ 


5,3 


ILS01 


T5H 




FORTRAN 1403 Printer Subroutine 


PRNZ 


5,3 


ILS04 


T5I 




FORTRAN Keyboard-Typewriter Subroutine 


TYPEZ 


5,3 


GETAD, EBCTB, HOLEZ, ILS04 


T5K 




FORTRAN Typewriter Subroutine 


WRTYZ 


5,3 


GETAD, EBCTB, ILS04 


T5L 




FORTRAN 1627 Plotter Subroutine 


PLOTX 


5,0 


ILS03 


V1L 




FORTRAN Hollerith to EBCDIC Conversion 


HOLEZ 


3,3 


GETAD, EBCTB, HOLTB 


T5D 




FORTRAN Get Address Routine 


GETAD 


3,3 


None 


T5C 




FORTRAN EBCDIC Table 


EBCTB 


3,3 


None 


T5B 




FORTRAN Hollerith Table 


HOLTB 


3,3 


None 


T5E 




Extended Arith/Funct LIBFs 


EGETP 


3,2 


ELD 


Sll 




Extended Precision Get Parameter Subroutine 




Extended Precision A**l Function 


EAXI, EAXIX 


3,2 


ELD/ESTO, EMPY, EDVR 


SIB 




Extended Precision Divide Reverse 


EDVR, EDVRX 


3,2 


ELD/ESTO, EDIV 


SID 




Extended Precision Float Divide 


EDIV, EDIVX 


3,2 


XDD, FARC 


SIC 




Extended Precision Float Multiply 


EMPY, EMPYX 


3,2 


XMD, FARC 


S1G 




Extended Precision Subtract Reverse 


ESBR, EXBRX 


3,2 


EADD 


S1H 




Extended Add-Subtract 


EADD, ESUB, EADDX, ESUBX 


3,2 


FARC, NORM 


S1A 




Extended Load-Store 


ELD, ELDX, ESTO, ESTOX 


3,0 


None 


S1F 




Standard Arith/Funct LIBFs 


FGETP 


3,2 


FLD 


R1E 




Standard Precision Get Parameter Subroutine 




Standard Precision A**l Function 


FAXI, FAXIX 


3,2 


FLD/FSTO, FMPY, FDVR 


RIB 




Standard Precision Divide Reverse 


FDVR, FDVRX 


3,2 


FLD/FSTO, FDIV 


RID 




Standard Precision Float Divide 


FDIV, FDIVX 


3,2 


FARC 


R1C 




Standard Precision Float Multiply 


FMPY, FMPYX 


3,2 


XMDS, FARC 


RIG 




Standard Precision Subtract Reverse 


FSBR, FSBRX 


3,2 


FADD 


R1H 




Standard Add-Subtract 


FADD, FSUB, FADDX, FSUBX 


3,2 


NORM, FARC 


R1A 




Standard Load-Store 


FLD, FLDX, FSTO, FSTOX 


3,0 


None 


R1F 




Standard Precision Fractional Multiply 


XMDS 


3,2 


None 


S3I 




Common Arith/Funct LIBFs 












Fixed Point (Fractional) Double Divide 


XDD 


3,2 


XMD 


S3G 




Fixed Point (Fractional) Double Multiply 


XMD 


3,2 


None 


S3H 




Sign Reversal Function 


SNR 


3,2 


None 


S3F 




Integer to Floating Point Function 


FLOAT 


3,0 


NORM 


S3C 




Floating Point to Integer Function 


IFIX 


3,0 


None 


S3D 




l**J Integer Function 


FIXI, FIXIX 


3,2 


None 


S3B 




Normalize Subroutine 


NORM 


3,0 


None 


S3E 




Floating Accumulator Range Check 


FARC 


3,2 


None 


S3A 




Subroutine 












Interrupt Service Subroutines 


CARDO 


5,0 


ILS0O, ILS04 


U2A 




1442 Card Read Punch Input/Output 




(No Error Parameter) 












1442 Card Read Punch Input/Output 


CARD1 


5,0 


ILS00, ILS04 


U2B 




(Error Parameter) 












2501 Card Read Input (No Error Parameter) 


READO 


5,0 


ILS04 


U2L 




2501 Card Read Input (Error Parameter) 


READ1 


5,0 


ILS04 


U2M 




1442 Card Punch Output (No Error Parameter) 


PNCHO 


5,0 


ILSO0, ILS04 


U2H 




1442 Card Punch Output (Error Parameter) 


PNCH1 


5,0 


ILS00, ILS04 


U2T 




Multiple Sector Disk Input/Output (Part 


DISK1 


- 


ILS02 


— 




of Supervisor) 












High Speed Multiple Sector Disk Input/ 


DISKN 


- 


ILS02 


~ 


Output (Part of Supervisor) 










Synchronous Communications Adaptor 


SCAT1 


5,0 


ILS01 


W1F 1 


(SCA) STR Mode 






1 


J 
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System Library Programs 


Names 


Type and 
Sub-type 


Subroutines Required 


ID Field 
(cc 73 - 75) 


Interrupt Service Subroutines (Cont'd) 


SCAT2 


5,0 


ILS01 




SCA(BSC, Point-to-Point Mode) 


SCA(BSC, Multi-Point Mode) 


SCAT3 


5,0 


ILS01 




Paper Tape Input/ Output 


PAPT1 


5,0 


ILS04 


U2D 


Simultaneous Paper Tape Input/Output 


PAPTN 


5,0 


ILS04 


U2E 


CharacterAVord Count Paper Tape Input/ 


PAPTX 


5,0 


ILS04 


U2F 


Output 










Plotter Output Subroutine 


PLOT1 


5,0 


ILS03 


U2G 


1132 Printer Output Subroutine 


PRNT1 


5,0 


ILS01 


U2J 


1132-SCA Print With Overlap 


PRNT2 


5,0 


ILS01 


W1E 


1403 Printer Output Subroutine 


PRNT3 


5,0 


ILS04 


U2K 


Keyboard/Console Printer Input/Output 


TYPE0 


5,0 


HOL, PRTY, ILS04 


U2N 


Console Printer Output Subroutine 


WRTY0 


5,0 


ILS04 


U20 


1231 Optical Mark Page Reader Input 


OMPR1 


5,0 


ILS04 


U2C 


Subroutine 










Conversion Subroutines 


BINDC 


3,0 


None 


U4B 


Binary Word to 6 Decimal Characters 


(Card Code) 










Binary Word to 4 Hexadecimal Characters 


BINHX 


3,0 


None 


U4C 


(Card Code) 










6 Decimal Characters (Card Code) to 


DCBIN 


3,0 


None 


U4G 


Binary Word 










EBCDIC to Console Printer Output Code 


EBPRT 


3,0 


EBPA, PRTY 


U3A 


Card Code to EBCDIC-EBCDIC to Card Code 


HOLEB 


3,0 


EBPA, HOLL 


U3B 


Card Code to Console Printer Output Code 


HOLPR 


3,0 


HOLL, PRTY 


U3C 


4 Hexadecimal Characters (Card Code) to 


HXBIN 


3,0 


None 


U3D 


Binary Word 










PTTC/8 to EBCDIC-EBCDIC to PTTC/8 


PAPEB 


3,0 


EBPA 


U3E 


PTTC/8 to Card Code-Card Code to 


PAPHL 


3,0 


EBPA, HOLL 


U3F 


PTTC/8 










PTTC/8 to Console Printer Output Code 


PAPPR 


3,0 


EBPA, PRTY 


U3G 


Card Code to EBCDIC-EBCDIC to Card Code 


SPEED 


3,0 


None 


U3H 


4 of 8 Code to EBCDIC, EBCDIC to 4 of 8 


EBC48 


3,0 


HXCV, STRTB 


W1A 


Code 










4 of 8 Code to IBM Card Code, 


HOL48 


3,0 


HXCV, HOLCA, STRTB 


W1B 


IBM Card Code to 4 of 8 Code 










4 of 8 Code to Table of Displacements 


HXCV 


3,0 


None 


W1D 


32-Bit Binary Value to IBM Card Code 


BIDEC 


3,0 


None 


U4A 


Decimal Value 










IBM Card Code Decimal Value to 32-Bit 


DECBI 


3,0 


None 


U4H 


Binary Value 










Supplement to All Standard Conversions 


ZIPCO 


3,0 


Any ZIPCO Conversion Table 


U3I 


Except Those Involving PTTC/8 










Conversion Tables 


EBPA 


3,0 


None 


U4K 


EBCDIC and PTTC/8 


Card Code Table 


HOLL 


3,0 


None 


U4P 


Console Printer Output Code Table 


PRTY 


3,0 


None 


U4Q 


Table of IBM Card Codes 


HOLCA 


3,0 


None 


W1C 


Table of 4 of 8 and EBCDIC Codes 


STRTB 


3,0 


None 


WIG 


ZIPCO Conversion Tables 


EBCCP 


3,0 


None 


U4I 


EBCDIC to Console Printer Code 


EBCDIC to IBM Card Code 


EBHOL 


3,0 


None 


U4J 


EBCDIC to 1403 Printer Code 


EBPT3 


3,0 


None 


U4L 


Console Printer Code to EBCDIC 


CPEBC 


3,0 


None 


U4D 


Console Printer Code to IBM Card Code 


CPHOL 


3,0 


None 


U4E 


Console Printer Code to 1403 Printer Code 


CPPT3 


3,0 


None 


U4F 


IBM Card Code to EBCDIC 


HLEBC 


3,0 


None 


U4M 


IBM Card Code to Console Printer Code 


HOLCP 


3,0 


None 


U40 


IBM Card Code to 1403 Printer Code 


HLPT3 


3,0 


None 


U4N 


1403 Printer Code to EBCDIC 


PT3EB 


3,0 


None 


U4S 


1403 Printer Code to Console Printer Code 


PT3CP 


3,0 


None 


U4R 


1403 Printer Code to IBM Card Code 


PTHOL 


3,0 


None 


U4T 


Interrupt Level Subroutines 


ILS00 


7,0 


None 


U1A 


Interrupt Level Zero Subroutine 


Interrupt Level One Subroutine 


ILS01 


7,0 


None 


U1B 


Interrupt Level Two Subroutine (Part of 


ILS02 


7,1 


None 


U1C 


Supervisor) 










Interrupt Level Three Subroutine 


ILS03 


7,0 


None 


U1D 


Interrupt Level Four Subroutine (Part of 


ILS04 


7,1 


None 


U1E 


Supervisor) 










Standard Plot Calls 


FCHAR 


4,0 


FSIN, FCOS, FPLOT, FCHRX, FLD, FSTOX, FSTO 


V1F 


Standard Precision Character 


Standard Precision Scale 


SCALF 


4,0 


FRULE 


VIO 


Standard Precision Grid 


FGRID 


4,0 


FPLOT, POINT, FADD, FLD, FSTO, SNR 


V1H 


Standard Precision Plot 


FPLOT 


4,0 


FMOVE, XYPLT, PLOTI 


VII 
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System Library Programs 


Names 


Type and 
Sub -type 


Subroutines Required 


ID Field 
(cc 73 - 75) 


Extended Plot Calls 










Extended Precision Character 
Extended Precision Scale 
Extended Precision Grid 
Extended Precision Plot 


ECHAR 
SCALE 
EGRID 
EPLOT 


4,0 
4,0 
4,0 
4,0 


ESIN, ECOS, EPLOT, ECHRX, ELD, ESTO, ESTOX 

ERULE 

EPLOT, POINT, EADD, ELD, ESTO, SNR 

EMOVE, XYPLT, PLOTI 


VIA 
V1N 
VIC 
V1D 


Common Plot Call 










Point Characters 


POINT 


4,0 


PLOTI 


VIM 


Standard Plot LIBFs 










Standard Precision Annotation 
Standard Precision Plot Scaler 


FCHRX, FCHRI, WCHRI 
FRULE,FMOVE, FINC 


3,2 
3,2 


FLOAT, FMPY, IFIX, FADD, FLDX, FINC, XYPLT, "PLOTI, 

FSTOX, FLD 

FLDX, FSUBX, FMP-YX, FLD, FSTOX, FMPY, IFIX, FADD 


V1G 
V1J 


Extended Plot LIBFs 










Extended Precision Annotation 
Extended Precision Plot Scaler 


ECHRX, ECHRI, YCHRI 
ERULE, EMOVE, EINC 


3,2 
3,2 


FLOAT, EMPY, IFIX, EADD, ELDX, EINC, XYPLT, PLOTI, 

ESTOX, ELD 

ELDX, ESUBX, EMPYX, ELD, ESTOX, EMPY, IFIX, EADD, 

ESTO 


VI B 
VIE 


Common Plot LIBFs 










Pen Mover 
Interface 
Interrupt Service 


XYPLT 
PLOTI 
PLOTX 


3,2 
3,2 
5,0 


PLOTI 
PLOTX 
ILS03 


VIP 
VI K 
VI L 
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APPENDIX G. LET/FLET 



The Location Equivalence Table (LET) contains the 
name and disk block count of all programs and data 
files stored in the User Area, including the System 
Library. The Fixed Location Equivalence Table (FLET) 
contains the names of all programs and data files stored 
in the Fixed Area. 

Each cartridge must have a LET. FLET is optionally 
defined on each cartridge by the DUP control record 
DEFINE FIXED AREA. 



LET/FLET DISK FORMAT 

All entries are three words long and consist of a name 
and disk block count. In addition, each sector of LET/ 
FLET contains a five word sector header. 



LET/FLET Sector Header 
Word Entry 

1 Relative sector number for this cartridge only 

2 Sector address of the UA (sector address of FX 

if FLET) 

3 Reserved 

4 Number of words available in this LET/FLET 

sector. 

5 Sector address for the next LET/FLET sector 

of this cartridge. This entry is zero if this 
is the last LET/FLET sector on this cartridge. 



LET/FLET DUMP FORMAT 



LET/FLET Entries 



Entries 



DSF 
(LET only) CI Data 



Word 1, bits 0-1 



00 



10 



11 



Word 1, bits Program or data file 

2-15 plus name in name code 

Word 2 



Word 3 



DB count of program 
or data file 



Sometimes unused disk space occurs because programs 
and data files are stored on sector boundaries. 
Such spaces are represented by a 1DUMY entry: 

Word 1, bits 0-1 Reserved 

Word 1, bits 2-15 Name code for 1DUMY 
plus Word 2 



The DUP control records DUMPLET or DUMPFLET are 
used to dump LET/FLET on the principal printer. One 
sector of LET/FLET is printed per page. The page is 
headed with the word LET or FLET, whichever is appli- 
cable. Each sector of LET/FLET dumped is preceded 
by two lines of header information. The first header 
line contains the contents of the following locations from 
COMMA /D COM: 

#CE)N ~ Cartridge ID, Logical Drive 0, 1, 2, 3, 

or 4 
$FPAD — COMMA File Protect Address, Logical 

Drive 0, 1, 2, 3, or 4 
#FPAD — DCOM File Protect Address, Logical 

Drive 0, 1, 2, 3, or 4 
#CIBA ~ CIB Address, Logical Drive 0, 1, 2, 3, 

or 4 
#ULET ~ LET Address, Logical Drive 0, 1, 2, 3, 

or 4 
#FLET ~ FLET Address, Logical Drive 0, 1, 2, 

3, or 4 

Following this line will be a second header line which 
reflects information concerning the LET/FLET sector 
being dumped: 



Word 3 



DB count of entry 



The last entry of LET is a 1DUMY entry reflecting the 
current size of WS available. 



Relative Sector Number (SCTR NO.) 
User Area/Fixed Area (UA/FXA) 
Word Available (WORDS AVAIL) 
Chain Address (CHAIN ADR) 



Appendix G 123 



Following these two header lines are the LET/ 
FLET entries. Twenty one lines of entries are 
printed, five entries per line and sequenced by col- 
umn. Each entry is formatted as follows: 

Name — 5 print positions + blank 

Type code — DSF, DCI, or DDF — 3 print 

positions + blank, 4 blanks if 1DUMY or 

secondary entry point 



DB Count — 4 print positions + blank 
DB Addr — 4 print positions + 5 blanks 



Only the name is printed for each secondary 
entry. 

Examples of DUMPLET andDUMPFLET 
follow. 
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// jce 


3333 






LOG DRIVE 


CART SPEC 


CART AVAIL 


PHY DRIVE 


OOOO 


3333 


3333 


C002 






2222 


0C01 






COOF 


0003 






OABB 


0004 



♦DEFINE FIXED AREA 
CART ID 3333 CYLS FXA 



0C04 DBS AVAIL 0200 FLET SECTOR ADDR 0118 



♦STOREDATA CO FX DATA 10 

CART 10 3333 OB ADDR 1200 DB CNT 



♦STOREDATACICC FX CIMGE 10 

CART ID 3333 DB ADDR 1220 CB CNT 



*STQREDATA CC UA CATA2 10 

CART ID 3333 DB ADDR 1C4C CB CNT 0C20 



= CID,N 
3333 



$FPAD =FPAC 
01D6 01D6 



= CI8A =ULET =FLET 
0140 C150 C118 



SCTR NO. 
CCOO 



UA/FXA. 
0158 



WORDS AVAIL. 
OCOO 



CHAIN ADDR. 
0151 



PROG 


FOR 


DB 


DB 


PROG 


FOR 


DB 


DB 


PROG 


FOR 


DB 


DB 


PROG 


FOR 


DB 


DB 


PROG 


FOR 


DB 


DB 


NAME 


MAT 


CNT 


ADDR 


NAME 


MAT 


CNT 


ADDR 


NAME 


PAT 


CNT 


ADDR 


NAME 


MAT 


CNT 


ADOR 


NAME 


MAT 


CNT 


A OUR 


FADD 


CSF 


0008 


1580 


FATN 


DSP 


OOOA 


15AA 


ESUB 








EATAN 








FIXIX 








FSUB 








FATAN 








EADDX 








EAXB 


DSF 


0005 


161D 


FLOAT 


DSF 


0002 


165E 


FADDX 








FAXB 


DSF 


0005 


1584 


ESUBX 








EAXBX 








IF IX 


DSF 


0004 


1660 


FSUBX 








FAX8X 








EAXI 


DSF 


0007 


15F2 


EEXP 


DSF 


OOOA 


1622 


NORM 


DSF 


0004 


1664 


FAXI 


DSF 


0006 


1588 


FEXP 


DSF 


C009 


15B9 


EAXIX 








EXPN 








SNR 


DSF 


0002 


1668 


FAXIX 








FXPN 








EDIV 


DSF 


0006 


15F9 


ELN 


DSF 


OOOB 


162C 


XDD 


DSF 


0006 


166A 


FOIV 


DSF 


0007 


158E 


FLN 


DSF 


OOOA 


15C2 


6DIVX 








EALOG 








XMD 


DSF 


0005 


1670 


FDIVX 








FALOG 








EDVR 


DSF 


0003 


15FF 


ESIGN 


DSF 


0003 


1637 


XMOS 


DSF 


0003 


1675 


FOVR 


DSF 


0003 


1595 


FSIGN 


DSF 


C003 


15CC 


EDVRX 








ESIN 


DSF 


COOB 


163A 


FBTD 


DSF 


0019 


1678 


FDVRX 








FSIN 


DSF 


0009 


15CF 


EGETP 


DSF 


0003 


1602 


ESINE 








FDTB 








FGETP 


DSF 


0003 


1598 


FSINE 








ELD 


DSF 


0004 


1605 


ECOSN 








IABS 


OSF 


0002 


1691 


FLO 


CSF 


0005 


159B 


FCOS 








ELDX 








ECOS 








XSGR 


DSF 


0004 


1693 


FLDX 








FCOSN 








ESTO 








ESOR 


DSF 


0006 


1645 


PAUSE 


DSF 


0003 


1697 


FSTO 








FSQR 


DSF 


0006 


15D8 


ESTOX 








ESQRT 








STOP 


OSF 


0002 


169A 


FSTOX 








FSQRT 








EMPY 


DSF 


0004 


1609 


ETANH 


DSF 


0004 


164B 


SUBIN 


DSF 


0003 


169C 


FMPY 


DSF 


0005 


15A0 


FTANH 


DSF 


C005 


15DE 


EMPYX 








ETNH 








SUBSC 


DSF 


0003 


169F 


FKPYX 








FTNH 








ESBR 


DSF 


0003 


160D 


SEAR 


DSF 


0004 


164F 


TTEST 


DSF 


0002 


16A2 


FSBR 


CSF 


0003 


15A5 


SFAR 


DSF 


0004 


15E3 


ESBRX 








SEARX 








TSET 








FSBRX 








SFARX 








EABS 


DSF 


0002 


1610 


SEIF 


DSF 


CC03 


1653 


DATSW 


DSF 


0003 


16A4 


FABS 


DSF 


0002 


15A8 


SFIF 


DSF 


0003 


15E7 


EAVL 








FARC 


DSF 


0003 


1656 


DVCHK 


DSF 


0002 


16A7 


FAVL 








EADD 


DSF 


0008 


15EA 


EATN 


DSF 


0008 


1612 


FIXI 


DSF 


0005 


1659 


FCTST 


DSF 


0003 


16A9 



= CI0N 
3333 



$FPAC 
01D6 



=FPAD =CIBA =ULET =FLET 
01D6 0140 0150 0118 



SCTR NO. UA/FXA. 
CC01 0158 



WORDS AVAIL. CHAIN ACDR. 
0000 0152 



PROG 


FOR 


DB 


CB 


PROG 


NAME 


MAT 


CNT 


AOOR 


NAME 


ISIGN 


DSF 


0003 


16AC 


SIOF 


OVERF 


DSF 


0002 


16AF 


SICAF 


SLITE 


CSF 


0C05 


16B1 


SIOFX 


SLITT 








SCOMP 


PDUMP 


DSF 


0009 


16B6 


SWRT 


TSTOP 


DSF 


0C02 


16BF 


SRED 


TSTRT 


DSF 


0002 


16C1 


SIOIX 


SOFIO 


DSF 


0017 


16C3 


UFI-0 


SDAF 








URED 



FOR DB DB 
MAT CNT ACDR 



DSF 001C 1720 



PROG 


FOR 


DB 


OB 


PROG 


FOR 


DB 


DB 


PROG 


FOR 


DB 


DB 


NAME 


MAT 


CNT 


ADDR 


NAME 


MAT 


CNT 


ADDR 


NAME 


MAT 


CNT 


ACUR 


pAPTZ 


DSF 


OOOF 


1748 


CARD1 


DSF 


0010 


17BE 


SPEED 


DSF 


0015 


180A 


PNCHZ 


DSF 


0006 


1757 


0MPR1 


DSF 


C011 


17CE 


ZIPCO 


DSF 


OOOA 


18EF 


PRNTZ 


DSF 


OOOD 


175D 


PAPT1 


DSF 


0011 


17DF 


BIDEC 


DSF 


0006 


18F9 


PRNZ 


DSF 


OOOD 


176A 


PAPTN 


DSF 


0013 


17F0 


BINDC 


DSF 


0005 


18FF 


REAOZ 


DSF 


0005 


1777 


PAPTX 


DSF 


0015 


1803 


BINHX 


DSF 


0004 


1904 


TYPEZ 


DSF 


0007 


177C 


PL0T1 


OSF 


OOOE 


1818 


CPEBC 


DSF 


0009 


1908 


WRTYZ 


DSF 


0005 


1783 


PNCHO 


DSF 


OOOE 


1826 


CPHOL 


DSF 


0009 


1911 


EBCTB 


DSF 


0005 


1788 


PNCH1 


DSF 


OOOE 


1834 


CPPT3 


DSF 


C009 


191A 


GETAD 


DSF 


0002 


178D 


PRNT1 


DSF 


0018 


1842 


DCBIN 


DSF 


0006 


1923 
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SDAI 








UWRT 


HOLEZ 


DSF 


0005 


178F 


PRNT3 


DSF 


OOOD 


185A 


DECBI 


DSF 


0009 


1929 


SDCOM 








UIOI 


HOLTB 


DSF 


0004 


1794 


READO 


DSF 


0007 


1867 


EBCCP 


DSF 


0009 


1532 


SDF 








UIOF 


SGOTO 


DSF 


0003 


1798 


READ1 


DSF 


0008 


186E 


EBHOL 


DSF 


0009 


193B 


SDFX 








UIOAI 


SIAR 


DSF 


0004 


179B 


TYPEO 


DSF 


0012 


1876 


EBPA 


DSF 


0006 


1944 


SDI 








UIOAF 


SIARX 








WRTYO 


DSF 


0009 


1888 


EBPT3 


OSF 


0009 


194A 


SOIX 








UIOFX 


SI IF 


DSF 


0003 


179F 


EBPRT 


DSF 


0007 


1891 


HLEBC 


DSF 


0009 


1953 


SDRED 








UIOIX 


ILSOO 


DSF 


0003 


17A2 


HOLEB 


DSF 


0009 


1898 


HLPT3 


DSF 


0009 


19!>C 


SOWRT 








UCOMP 


ILS01 


DSF 


C003 


17A5 


HCLPR 


DSF 


0007 


18A1 


HOLCP 


OSF 


0009 


1565 


SDFND 


DSF 


0006 


16DA 


BCKSP 


ILS02 


DSF 


0001 


17A8 


HXBIN 


DSF 


0005 


18A8 


HOLL 


DSF 


0006 


1S6E 


SFIO 


CSF 


0040 


16EC 


EOF 


ILS03 


DSF 


0003 


17A9 


PAPEB 


DSF 


0010 


18AD 


PRTY 


DSF 


0006 


19?4 


sroi 








REWND 


ILS04 


DSF 


0002 


WAC 


PAPHL 


DSF 


0010 


18BD 


PTHOL 


DSF 


0009 


197A 


SIOAI 








CARDZ CSF OOOC 173C CAROO 


DSF 


0010 


17AE 


PAPPR 


DSF 


OOOD 


18CD 


PT3CP 


OSF 


0009 


1583 



= CIDN $FPAD =FPAD =CIBA 


= I'LET =FLE 


3333 01D6 CID6 0140 


0150 0118 


SCTR NO. UA/FXA. WORDS AVAIL 


. CHAIN ACDR 


C002 0158 0087 


0118 



PROG 


FOR 


DB 


DB 


PRCG 


FOR 


DB 


CB 


PROG 


FOR 


DB 


DB 


PROG FOR DB DB 


NAME 


MAT 


CNT 


ADDR 


NAME 


NAT 


CNT 


ACDR 


NAME 


MAT 


CNT 


ACDR 


NAME MAT CNT ADDR 


PT3EB 


DSF 


0C09 


198C 


ECHAR 


DSF 


0005 


IB75 


POINT 


DSF 


0008 


1C05 




DMTOO 


DSF 


001A 


1995 


ECHRX 


OSF 


0026 


1B7A 


SCALE 


DSF 


0002 


1C0D 




DMTXO 








ECHRI 








SCALF 


DSF 


0002 


1C0F 




DMPD1 


DSF 


001E 


19AF 


VCHRI 








XYPLT 


DSF 


0007 


1C11 




DMPX1 








EGRID 


DSF 


0008 


1BA0 


EBC48 


DSF 


0009 


1C18 




0MP80 


CSF 


0007 


19CD 


ERULE 


DSF 


OOOA 


IBA8 


HOLCA 


DSF 


0006 


1C21 




FLIPR 


DSF 


0007 


19D4 


EMOVE 








H0L48 


DSF 


0008 


1C27 




SYSUP 


DSF 


0035 


19DB 


EINC 








HXCV 


DSF 


0004 


1C2F 




ADRWS 


DSF 


0C10 


UIO 


EPLOT 


CSF 


0005 


1BB2 


PRNT2 


CSF 


001E 


1C33 




COPY 


DSF 


0010 


1A20 


FCHAR 


CSF 


0005 


1BB7 


SCAT1 


DSF 


0041 


1C51 




DISC 


DSF 


0036 


1A3D 


FCHRX 


CSF 


0025 


1BBC 


STRTB 


DSF 


0006 


1C92 




OLCIB 


DSF 


001D 


1A73 


FCHRI 








SCAT3 


OSF 


004B 


1C98 




DSLET 


DSF 


0036 


IA90 


WCHRl 








KG3 


OSF 


0006 


1CE3 




ID 


CSF 


001A 


1AC6 


FGRID 


DSF 


0008 


IBE1 


KG4 


DSF 


0009 


1CE9 




IOENT 


CSF 


OOOC 


IAE0 


FRULE 


DSF 


0009 


18E9 


SCAT2 


DSF 


0040 


1CF2 




MODIF 


CSF 


0059 


1AEC 


FMOVE 








1DUMY 




OOOE 


1D32 




PTUTL 


CSF 


0009 


1B45 


FINC 








DATA2 


DDF 


0020 


ID40 




CALPR 


DSF 


0007 


1B4E 


FPLOT 


DSF 


C004 


1BF2 


1DUMY 




46A0 


1D60 




FSLfcN 


DSF 


OOOB 


1B55 


PLOT I 


DSF 


0003 


1BF6 












FSYSU 








PLOTS 


















RDREC 


DSF 


0015 


1B60 


PLCTX 


DSF 


COOC 


1BF9 













PROG FOR DB De 
NAME MAT CNT ACUR 



= CIDN 
3333 



$FPAD =FPAD 
01 06 01D6 



=CIBA =HLET =FLET 
0140 0150 0118 



SCTR NO. 
0C10 



UA/FXA. 
012C 



WORDS AVAIL. 
0132 



CHAIN ADDR. 
CCOO 



PROG 


FOR DB 


DB 


PROG 


FOR DB 


DB 


PROG 


FOR DB 


DB 


PRCG 


FOR DB 


DB 


PROG 


FOR DB 


DB 


NAME 


MAT CNT 


ADDR 


NAME 


MAT CNT 


ADDR 


NAME 


MAT CNT 


ADDR 


NAME 


MAT CNT 


ADDR 


NAME 


MAT CNT 


ACDR 



DATA DDF 0020 1200 
CIMGE DCI 0020 1220 
1DUMY 01C0 124C 



END CF DUNPLET/FLET 
♦DUMPFLET 



= CION 
3333 



$FPAD 
01D6 



= FPAD 
01D6 



= CIBA 
0140 



=ULET =FLET 
0150 0118 



SCTR NO. 
0010 



UA/FXA. 
0120 



WORDS AVAIL. 
0132 



CI-AIN ACDR. 
0000 



PROG 
NAME 



FOR DB 
MAT CNT 



DB 
ACDR 



CATA CDF 0020 1200 
CIMGE DCI CC2C 1220 
1DUMY 01C0 1240 



PRCG FO" DB DB 
NAME MAT CNT ADDR 



PROG 


FCR OB 


DB 


PROG 


FOR DB 


DB 


NAME 


MAT CNT 


ADDR 


NAME 


MAT CNT 


ACDR 



PROG FOR DB DB 
NAME MAT CNT ADDR 
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APPENDIX H. RESIDENT MONITOR (INCLUDING TABLE OF EQUIVALENCES) 

The contents of this appendix are not to be construed as an external specification, i. e. , the location in this 
listing may be changed. $PRET, $IREQ, $EXIT, $LINK, and $DUMP are the only locations that are guaranteed. 

Note that = is equivalent to # and ' (apostrophe) is equivalent to @. 



DCOM 

ADOR REL OBJECT 



ST. NO. LABEL GPCD FT OPERANDS 



0001 
0002 
0003 
0004 
0005 
0006 
0007 
0008 
0009 
0010 
0011 
0012 
0013 
0014 
0015 
0016 
0017 
0018 
0019 
0020 
0021 
0022 
0023 
0024 
0025 
0026 
0027 
0028 
0029 
0030 
0031 
0032 
0033 
0034 
0035 
0036 
0037 
0038 
0039 
0040 
0041 
0042 
0043 
0044 
0045 
0046 
0047 
0048 
0049 
0050 
0051 
0052 
0053 
0054 
0055 
0056 
0057 
0058 
0059 
0060 
0061 
0062 
0063 
0064 
0065 
0066 
0067 
0068 
0069 
0070 
0071 
0072 
0073 
0074 
0075 
0076 
0077 
0078 
0079 
0080 
0081 
0082 
0083 
G084 



« RLTV ADDR» SYMBOL* DESCRIPTION 



0-3 
4-5 
6 
7 

8 

9 



11 
12 

13 

14 

15 

16 

17 

18 

19 

20 

21 

22 

23 

24 

25 

26 

27 

28-3 

35 

36 

37 

38 

39 

40 

41 

42 

43 

44 

45 



48 

49 

50 
51 
52 
53 
54 
55 
56 
57 
58 
59 
60 
61 
62 
63 
64 
65 
66 
67 
68 
69 
70 
71 
72 



* =NAME » 
« =DBCT * 

* =FCNT « 

* * 

* =SYSC • 

* = JBSW « 
< * 

* = CBSW « 

* • 

* =LCNT « 

* =MPSW « 
« * 
» =MDF1 « 
» =MDF2 * 

* =NCNT » 

* =ENTY * 
« =RP67 « 

* =T0DR • 

* =FRDR « 

* = FH0L • 

* =FSZE « 

* =UH0L « 
« =USZE • 
» =DCSW « 

* =PI0D * 

* =PPTR » 
» =CIAD « 

* • 

* =ANDU « 



» = BNDU « 



* =FPAD * 



* =PCID » 



» =CIDN * 



• =CIBA * 



• =FMAT » 



RESERVED FOR EVEN BOUNDARIES 
NAME OF PROGRAM/CORE LOAD 
BLOCK COUNT OF PROG/.CORE LOAD 
•FILES SWITCH — ZERO MEANS NO 
FILES HAVE BEEN EQUATED 
SYS/NON-SYS CARTRIDGE INDR 
JOBT SWITCH — NON-ZERO MEANS 
TEMPORARY MODE 
CLB-RETURN-TO-DUP SWITCH — 
ZER0=CLB RETURN TO SUPV 
NO. OF LOCALS 

CORE MAP SWITCH — ZERO MEANS 
DC NOT PRINT A CORE MAP 
NO. DUP CTRL RECDS (MODIF) 
ADDR OF MODIF BUFFER 
NO. OF NOCALS 

RLTV ENTRY ADDR OF PROGRAM 
1442-5 SW 10=1442-5 ON SYSTEM 
•TO' WORKING STG DRIVE CODE 
•FROM' WORKING STG DRIVE CODE 
ADDR OF LARGEST HOLE IN FXA 
BLK CNT OF LARGEST HOLE IN FXA 
ADDR OF LARGEST HOLE IN UA 
BLK CNT OF LARGEST HOLE IN UA 
DUP CALL SW— N0N-ZER0=DUP CALL 
PRINCIPAL I/O DEVICE INDICATOR 
PRINC. PRINT DEVICE INDICATOR 
RLTV ADDR IN 'STRT OF CIL ADDR 
RESERVED FOR FUTURE USE 
1+BLOCK ADDR OF END OF USER 
AREA (ADJUSTED) LOGICAL DR 
1+BLOCK ADDR OF END OF USER 
AREA (ADJUSTED) LOGICAL DR 1 
1+BLOCK ADDR OF END OF USER 
AREA (ADJUSTED) LOGICAL DR 2 
1+BLOCK ADDR OF END CF USER 
AREA (ADJUSTED) LOGICAL DR 3 
1+BLOCK ADDR OF END OF USER 
AREA (ADJUSTED) LOGICAL DR 4 
1+BLOCK ADDR OF END OF USER 
AREA (BASE) LOGICAL DRIVE 
1+BLOCK ADDR OF END OF USER 
AREA (BASE) LOGICAL DRIVE 1 
1+BLOCK ADDR OF END OF USER 
AREA (BASE) LOGICAL DRIVE 2 
1+BLOCK ADDR OF END OF USER 
AREA (BASE) LOGICAL DRIVE 3 
1+BLOCK ADDR OF END OF USER 
AREA (BASE) LOGICAL DRIVE 4 
FILE PROTECT ADDR, LOGICAL 
DRIVE (BASE) 
FILE PROTECT ADOR, LOGICAL 
DRIVE 1 (BASE) 
FILE PROTECT ADDR, LOGICAL 
DRIVE 2 (BASE) 
FILE PROTECT ADDR, LOGICAL 
DRIVE 3 (BASE) 
FILE PROTECT ADDR, LOGICAL 
DRIVE 4 (BASE) 

CARTRIDGE ID, PHYSICAL DRIVE 
CARTRIDGE ID, PHYSICAL DRIVE 1 
CARTRIDGE ID, PHYSICAL DRIVE 2 
CARTRIDGE ID, PHYSICAL DRIVE 3 
CARTRICGE ID, PHYSICAL DRIVE 4 
CARTRIDGE ID, LOGICAL DRIVE 
CARTRIDGE ID, LOGICAL DRIVE 1 
CARTRIDGE ID, LOGICAL DRIVE 2 
CARTRIDGE ID, LOGICAL DRIVE 3 
CARTRIDGE ID, LOGICAL DRIVE 4 
SCTR ADOR OF CIB, LOGICAL DR 
SCTR ADDR OF CIB, LOGICAL DR 1 
SCTR ADDR OF CIB, LOGICAL DR 2 
SCTR ADDR OF CIB, LOGICAL DR 3 
SCTR ADDR OF CIB, LOGICAL DR 4 
SCRA, LOGICAL DRIVE 

LOGICAL DRIVE 1 

LOGICAL DRIVE 2 
SCRA, LOGICAL DRIVE 3 
SCRA, LOGICAL DRIVE 4 
FORMAT OF PROG IN WS, DRIVE 
FORMAT OF PROG IN WS, DRIVE 1 
FORMAT OF PROG IN WS, DRIVE 2 



SCRA, 
SCRA, 



ID/SEQNO 

SYS00010 
SYS00020 
SYS00030 
SYS00040 
SYS00050 
SYS00060 
SYS00070 
SYS00080 
SYS00090 
SYS00100 
SYS00110 
SYSC0120 
SYS00130 
SYS00140 
SYS00150 
SYS00160 
SYS00170 
SYS00180 
SYS00190 
SYS00200 
SYS0C210 
SYS00220 
SYS00230 
SYS00240 
SYS00250 
SYS00260 
SYS00270 
SYS00280 
SYS00290 
SYS00300 
SYSOC310 
SYS00320 
SYS0G330 
SYS00340 
SYSC0350 
SYS00360 
SYS00370 
SYS00380 
SYS00390 
SYS00400 
SYSC0410 
SYS00420 
SYS00430 
SYS00440 
SYS00450 
SYS00460 
SYS00470 
SYSC0480 
SYS00490 
SYS00500 
SYS00510 
SYS00520 
SYS00530 
SYS00540 
SYS00550 
SYS00560 
SYS00570 
SYS00580 
SYS00590 
SYS0C600 
SYS00610 
SYS00620 
SYS00630 
SYS00640 
SYS00650 
SYS00660 
SYS00670 
SYS00680 
SYS00690 
SYSOC700 
SYS00710 
SYS00720 
SYSCC730 
SYS0C74O 
SYS00750 
SYS00760 
SYS00770 
SYS00780 
SYS00790 
SYS00800 
SYS00810 
SYS0O820 
SYS00830 
SYS00840 
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DCOM 








ADDR REL OBJECT 


ST.NG. 


LABEL 0P( 




008b 


» 


73 




0086 


• 


74 




0087 


* 


75 




0088 


* 


76 




0089 


• 


77 




0090 


* 


78 




0091 


* 


79 




0092 


• 


80 




0093 


» 


81 




0094 


• 


82 




0095 


• 


83 




0096 


• 


84 




0097 


• 


85 




0098 


* 


86 




0099 


* 


87 




0100 


• 


88 




0101 


• 


89 




0102 


• 


90 




0103 


• 


91 




0104 


• 


92 




0105 


» 


93 




0106 


• 


94 




0107 


* 


95-319 



* • FORMAT OF PROG IN WS, DRIVE 3 

• « FORMAT OF PROG IN WS, DRIVE 4 
» =FLET « FLET SCTR ADDR, LOGICAL DR 

* * FLET SCTR ADDR. LOGICAL DR 1 

• * FLET SCTR ADDR, LOGICAL DR 2 

* » FLET SCTR ADDR, LOGICAL DR 3 
» • FLET SCTR ADDR, LOGICAL DR 4 
» =ULET * LET SCTR ADDR, LOGICAL DR 

• « LET SCTR ADDR, LOGICAL DR 1 

* • LET SCTR ADDR, LOGICAL DR 2 

• « LET SCTR ADDR, LOGICAL OR 3 
» * LET SCTR ADDR, LOGICAL DR 4 



• =WSCT * BLK CNT OF PROG IN WS, DRIVE 
« * BLK CNT OF PROG IN WS, DRIVE 
» » BLK CNT OF PROG IN WS, DRIVE 




1 
2 

* » BLK CNT OF PROG IN WS, DRIVE 3 

* • BLK CNT OF PROG IN WS, DRIVE 4 
« =CSHN * SCTR CNT CUSHION, LOGICAL DR 

* • SCTR CNT CUSHION, LOGICAL DR 1 

* » SCTR CNT CUSHION.LOGICAL DR 2 

* * SCTR CNT CUSHION.LOGICAL DR 3 

* * SCTR CNT CUSHION.LOGICAL DR 4 

* • RESERVED FOR FUTURE USE 



ID/SEQNO 

SYS00850 
SYS00860 
SYS00870 
SYS00880 
SYS0C890 
SYS00900 
SYS00910 
SYS00920 
SYS00930 
SYS00940 
SYS00950 
SYS00960 
SYS00970 
SYS00980 
SYSC0990 
SYS01000 
SYS01010 
SYS01020 
SYS01030 
SYS01040 
SYS01050 
SYS01060 
SYS01070 



RESIDENT IMAGE 






ADDR REL OBJECT 


ST.NC. 


LABEL OPCI 




0109 


* 




0110 


• RLTV ADI 




cm 


* 




0112 


» 0-209 




0113 


* 




0114 


« 210-319 



DESCRIPTION 

INITIAL VALUES FOR WORDS 
OF THE RESIDENT MONITOR 
RESERVED FOR FUTURE USE 



ID/SEQNO 

SYS01090 
SYS01100 
SYS01110 
4-213 SYS01120 
SYS01130 
SYS01140 



RESIDENT MONITOR 

AOOR REL OBJECT ST. NO. 

0116 
0117 
0118 
0119 
0120 
0121 
0122 
0123 
0124 
0125 
0126 
0127 
0128 
0129 
0130 
0131 
0132 
0133 
0134 
0135 
0136 
0137 
0138 
0139 
0140 
0141 
0142 
0143 
0144 
0145 
0146 
0147 
0148 
0149 
0150 
0151 
0152 
0153 
0154 
0155 



LABEL CPCD FT OPERANDS 



•STATUS-VERSION 2, MODIFICATION 

* 

•FUNCTION/OPERATION- 

« THIS SECTION ALWAYS REMAINS IN CORE. IT 

« IS COMPRISED OF THE COMMUNICATIONS 

• AREA (COMMA), THE SKELETON SUPERVISOR, AND 

» A DISK I/O SUBROUTINE, NOMINALLY DISKZ. (THE 

• FIRST TWO OF THESE SECTIONS ARE INTERMIXED.) 

• COMMA CONTAINS THE SYSTEM PARAMETERS REQUIR- 
» ED TO FETCH A CORE LOAD IN CORE IMAGE FOR- 

• MAT. THE SKELETON SUPERVISOR PROVIDES IN- 

• STRUCTIONS FOR INITIATING A CALL EXIT, A 

« CALL LINK, A DUMP-TO-PRINTER OR A CALL TO THE 

• AUXILIARY SUPERVISOR. IN ADDITION, THE SKELE- 
» TON SUPERVISOR CONTAINS SEVERAL TRAPS FOR CER- 
» TAIN I/O FUNCTIONS/CONDITIONS. THE DISK I/O 

» SECTION CONSISTS OF A SUBROUTINE FOR READING 

» FROM OR WRITING ON A DISK CARTRIDGE ON A 

« GIVEN LOGICAL DISK DRIVE. 

• 

•ENTRY POINTS- 

• • $PRET-A TRAP FOR PREOPERATIVE I/O ERRORS. 

• THE CALLING SEQUENCE IS 

• BSI L $PRET 

• • SPSTX-A POSTOPERATIVE ERROR TRAP FOR I/O 

• DEVICES ON LEVEL X (X=l,2,3,OR 4). 

• THE CALLING SEQUENCE IS 

• BSI L SPSTX 

• * SSTOP-THE PROGRAM STOP KEY TRAP. 

• • $EXIT-THE ENTRY POINT FOR THE EXIT/CALL 

• EXIT STATEMENT. THE CALLING SEQUENCE I< 

• LDX $EXIT 

• • JLINK-THE ENTRY POINT FOR THE LINK/CALL 

• LINK STATEMENT. THE CALLING SEQUENCE IJ 

• BSI L SLINK 

• » SDUMP-THE ENTRY POINT FOR THE OUMP/PDMP 

• STATEMENT. THE CALLING SEQUENCE IS 

• BSI L (DUMP 



ID/SEQNO 

SYS01160 
SYS01170 
SYS01180 
SYS01190 
SYS01200 
SYS01210 
SYS01220 
SYS01230 
SYS01240 
SYS01250 
SYS01260 
SYS01270 
SYS01280 
SYS01290 
SYS01300 
SYS01310 
SYS01320 
SYS01330 
SYS01340 
SYS01350 
SYS01360 
SYS01370 
SYS01380 
SYSC1390 
SYS01400 
SYS01410 
SYS01420 
SYS01430 
SYS01440 
SYS01450 
SYS01460 
SYS01470 
SYS01480 
SYS01490 
SYS01500 
SYS01510 
SYS0152O 
SYS01530 
SYS01540 
SYS01550 
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ADM REL OBJECT ST. NO. 

0156 
0157 
0158 
0159 
0160 
0161 
0162 
0163 
0164 
0165 
0166 
0167 
0168 
0169 
0170 
0171 
0172 
0173 
0174 
0175 
0176 
0177 
0178 
0179 
0180 
0181 
0182 
0183 
0184 
0185 
0186 
0187 
0188 
0189 
0190 
0191 
0192 
0193 
0194 
0195 
0196 
0197 
0198 
0199 
0200 
0201 
0202 
0203 
0204 
0205 
0206 
0207 
0208 
0209 
0210 
0211 
0212 
0213 
0214 
0215 
0216 
0217 
0218 
0219 
0220 
0221 
0222 
0223 
0224 
0225 
0226 
0227 
0228 
0229 
0230 
0231 
0232 
0233 
0234 
0235 
0236 
0237 
0238 
0239 
0240 
0241 
0242 
0243 
0244 



LABEL OPCO FT OPERANDS 

* DC FORMAT * 

• DC LIHIT1 * 

* DC LIMIT2 • 
« WHERE LIMIT1 AND LIMIT2 ARE THE LIMITS * 

• BETWEEN WHICH THE DUMP IS TO OCCURt AND* 

• FORMAT IS A CODE INDICATING THE FORMAT » 
» OF THE DUMP. IF FORMAT IS NEGATIVE, » 
« THE AUXILIARY SUPERVISOR IS FETCHED * 

• AND CONTROL PASSED TO IT. » 
« « DZOOO-ENTERED WHEN THE CALLER WISHES TO » 

* PERFORM A DISK I/O OPERATION. THE * 

* CALLING SEQUENCE VARIES WITH THE * 

* VERSION OF THE DISK I/O SUBROUTINE. * 

* » $I200/$I400-ENTEREO WHEN THE OPERATION- » 

• COMPLETE INTERRUPT OCCURS ON » 

• LEVEL 2/4. « 

* • 
•INPUT-N/A » 

• • 
•OUTPUT-WORDS 6-4090 SAVED ON THE CIB ON A CALL • 

* DUMP » 

• * 
•EXTERNAL REFERENCES-N/A • 



• • NORMAL 

• «THE EXITS FROM THE SUBROUTINES AT $PRET 

• *PST1, $PST2, $PST3, *PST4, AND $STOP 

• ARE BRANCH INSTRUCTIONS FOLLOWING A 

• WAIT INSTRUCTION. $STOP TURNS OFF 1N- 

• TERRUPT LEVEL 5 AFTER THE START KEY IS 

• DEPRESSED. 

• «THE EXITS FROM $EXIT,$LINK, AND SDUMP ARE 
» TO THE CORE IMAGE LOADER, PHASE 1, 

• AFTER THAT PHASE HAS BEEN FETCHED. 

• »THE EXIT FROM D200C IS BACK TO THE 

• CALLER AFTER THE REQUESTED DISK OPERA- 

• TION HAS BEEN INITIATED. 

• »THE EXITS FROM SI2C0/SI400 ARE BACK TO 

• THE ADDRESSES FROM WHICH THE DISK OP- 

• ERATION COMPLETE INTERRUPT OCCURED 

• AFTER THE INTERRUPT HAS BEEN SERVICED 

• BY THE APPROPRIATE ISS. 

• • ERROR-N/A 
• 

•TABLES/WORK AREAS- 

• • $ACDE 

• • $CH12 

• • $CILA 

• • $CLSW 

• * $COMN 

• • SCORE 

• • $CTSW 

• • $CXR1 

• * $CYLN 

• • $DABL 

• • SDADR 

• • $DBSY 

• • SDCYL 

• * $DMPF 

• • $DREQ 

• • $FPAD 

• • SHASH 

• » SIBT2 

• • SIBT4 

• • SIBSY 

• • $IOCT 

• • SKCSW 

• • SLAST 

• • SNDUP 

• • tNXEQ 

• • $PBSY 

• * SPGCT 

• • SPHSE 

• • $RMSW 

• • $SNLT 

• * $UFIO 

• • SULET 

• • $WRD1 

• • JWSDR 

•ATTRI BUTES-REUSABLE 

• 

•NOTES- 

• THERE ARE WAIT INSTRUCTIONS AT SPRET+1, 

• SSTOP+1, AND SPSTX+1. DEPRESSING THE START 

• KEY WILL RETURN CONTROL TO THE CALLER IN ALL 

• CASES- 



ID/SEQNO 

SYS01560 
SYS01570 
SYSC1580 
SYS01590 
SYS01600 
SYS01610 
SYS01620 
SYS01630 
SYS01640 
SYS01650 
SYS01660 
SYS01670 
SYS01680 
SYS01690 
SYS01700 
SYS01710 
SYS01720 
SYS01730 
SYS01740 
SYS01750 
SYS01760 
SYS01770 
SYS01780 
SYS01790 
SYSC1800 
SYS01810 
SYS01820 
SYS01830 
SYS01840 
SYS01850 
SYS01860 
SYS01870 
SYS01880 
SYS01890 
SYSC190C 
SYS01910 
SYS01920 
SYSC1930 
SYS01940 
SYS01950 
SYS01960 
SYS01970 
SYSC1980 
SYS01990 
SYS02000 
SYS02010 
SYS02020 
SYS0203C 
SYS02040 
SYS02050 
SYS02060 
SYS02070 
SYS02080 
SYS02090 
SYS02100 
SYS02110 
SYS02120 
SYS02130 
SYS02140 
SYS02150 
SYS02160 
SYS02170 
SYS02180 
SYS02190 
SYS02200 
SYS02210 
SYS02220 
SYS02230 
SYS02240 
SYS02250 
SYS02260 
SYS02270 
SYS02280 
SYS02290 
SYS02300 
SYS02310 
SYS02320 
SYS02330 
SYS02340 
SYS02350 
SYS02360 
SYS02370 
SYS02380 
SYS02390 
SYS02400 
SYS02410 
SYS02420 
SYS02430 
SYS02440 
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ADOR 


REL OBJECT 


ST. NO. 


LABEL 


OPCD 


FT 


OPERANDS 


ID/SEQNO 








0246 


• PROVIDE 1 


PARAMETERS FOR SYSTEM LOADER 


SYS02460 








0247 


• 








SYS02470 








0248 




ABS 






SYS02480 


0280 






0249 




ORG 




4 


SYS02490 


0004 





OFFA 


0250 




DC 




4095-» HO CNT FOR WRITING CORE ON CIB 


SYS02500 


0005 





0000 


0251 


$CIBA 


DC 




»-» SCTR ADDR OF THE CIB 


SYSC2510 


0006 





0000 


0252 


$CH12 


DC 




•-• ADOR OF CHANNEL 12 INDICATOR 


SYS02520 


0007 





0000 


0253 
0254 


$COMN 

* 


DC 




*-« LENGTH OF COMMON (IN WORDS) 


SYS02530 
SYS02540 








0255 


* ULTIMATE 


RESIDENCE OF THE INTERRUPT TV 


SYS02550 








0256 


» 








SYS02560 


0008 





0000 


0257 


SLfcVO 


DC 




»-» LEVEL BRANCH ADDRESS 


SYS02570 


0009 


c 


0000 


0258 


$LEV1 


DC 




»-» LEVEL 1 BRANCH ADDRESS 


SYS02580 


OOOA 





00B3 


0259 


$LEV2 


DC 




$1200 LEVEL 2 BRANCH ADDR 


SYS02590 


0008 





0000 


0260 


$LEV3 


DC 




*-• LEVEL 3 BRANCH ADDRESS 


SYS02600 


OOOC 





00C4 


0261 


$LEV4 


DC 




$1400 LEVEL 4 BRANCH ADDR 


SYS02610 


0000 





0091 


0262 
0263 
0264 


$LEV5 

• 
• 


DC 




$STOP LEVEL 5 BRANCH ADDR 


SYS02620 
SYS02630 
SYS02640 


OOOE 


c 


0000 


0265 


SCORE 


DC 




*-• SIZE OF CORE, E.G., 4096=4K 


SYS02650 


OOOF 





0000 


0266 


$CTSW 


DC 




*-» CONTROL RECORD TRAP SWITCH 


SYS02660 


0010 


c 


0000 


0267 


$DADR 


DC 




»-* SCTR ADDR OF PROG TO BE LOADED 


SYS02670 


0011 





5540 


0268 


$DABL 


DC 




/5540 IOCC FOR SCA RESET IODD ADDR) 


SYS02680 


CC12 





0000 


0269 


$DREC 


OC 




*-• IND. FOR REQUESTED VERSION DKI/O 


SYS02690 


0013 


c 


0000 


0270 


SIBSY 


DC 




*-» NON-ZERO IF CO/PAP TP DEV. BUSY 


SYSC2700 


0014 




OOOC 


0271 
0272 
0273 


$HASH 

* 
* 


BSS 


E 


12 WORK AREA 


SYS02710 
SYS02720 
SYS02730 


0020 




00C8 


0274 
0275 
0276 
0277 


$SCAN 

* 
* 


BSS 




8 1132 SCAN AREA 32 


SYS02740 
SYS02750 
SYS02760 
SYS02770 








0278 


* TRAP FOR 


PREOPERATIVE I/O ERRORS 


SYS02780 








0279 


* 








SYS02790 


0028 


c 


0000 


028C 


$PRET 


DC 




»-» ENTRY POINT 


SYS02800 


0029 


c 


3000 


0281 




WAIT 




WAIT TIL START KEY PUSHED 


SYS02810 


C02A 


00 


4C800028 


0282 
0283 
0284 


* 
* 


8SC 


I 


$PRET RETURN TO CALLER 


SYS02820 
SYSC2830 
SYS02840 


002C 





OOCO 


0285 


$IREQ 


DC 




♦-• ADDR OF INT REQUEST SUBROUTINE 


SYS02850 


0020 





0000 


0286 


$ULET 


DC 




*-« ADOR OF LET, LOGICAL OR 


SYS02860 


002E 


c 


0000 


0287 




DC 




•-« ADDR OF LET, LOGICAL OR 1 


SYS02870 


002F 


c 


0000 


0288 




DC 




♦-* AODR OF LET, LOGICAL DR 2 


SYS02880 


0030 





OCCO 


0289 




DC 




•-* ADDR OF LET, LOGICAL DR 3 


SYSC2890 


0031 





0000 


0290 




DC 




*-* ADDR OF LET, LOGICAL DR 4 


SYS02900 


0032 





0000 


0291 


$ICCT 


DC 




«-* ZERO IF NO I/O IN PROGRESS 50 


SYS02910 


0033 





0000 


0292 


$LAST 


DC 




•-* NON-ZERO WHEN LAST CARD SENSED 


SYS02920 


0034 





0000 


0293 


$NDUP 


OC 




»-• DO NOT DUP IF NON-ZERO 


SYS02930 


0035 





OOCO 


0294 


$NXEQ 


OC 




•-* DO NOT EXECUTE IF NON-ZERO 


SYS02940 


0C36 





0000 


0295 


$PBSY 


CC 




«-» NON-ZERO WHEN PRINTER BUSY 


SYS02950 


0037 





OOCO 


02 96 
0297 


SPGCT 

• 


DC 




«-» PAGE NO. FOR HEADINGS 


SYS02960 
SYS02970 








0298 


» CALL EXIT ENTRY POINT TO SKELETON SUPERVISOR 


SYS02980 








0299 


• 








SYS02990 


0038 





7014 


0300 
0301 


$EXIT 

* 


MDX 




$S000 BR TO FETCH CIL, PHASE 1 56 


SYS03000 
SYS03010 








0302 


*•» CALL LINK 


ENTRY POINT 


SYS03020 








0303 


* 








SYS03030 


0039 


c 


0000 


0304 


$LINK 


DC 




*-• ENTRY POINT 57 


SYS03040 


003A 


c 


1810 


0305 




SRA 




16 


SYS03050 


003B 





7012 


0306 




KDX 




SS100 BR TO FETCH CIL, PHASE 1 


SYS03060 


003C 




0000 


0307 




BSS 


E 





SYS03070 


C0 3C 





0001 


0308 


$S900 


DC 




1 DISK PARAMETERS FOR SAVING CORE 


SYS03080 


003D 


c 


C0C4 


0309 




OC 




$CIBA-1 *IN CONNECTION WITH DUMP 


SYS03090 


C03E 





FFFF 


0310 
0311 


SS910 

* 


DC 




-1 CALL EXIT INDICATOR 


SYS03100 
SYS03110 








0312 


»»» SAVE 1ST 


4K 0? CORE ON THE CIB 


SYS03120 








0313 


* 








SYS03130 


003F 





0000 


0314 


$DUMP 


DC 




»-» ENTRY POINT 63 


SYS03140 


0040 


CO 


74C00032 


0315 




MDX 


L 


$IOCT,0 SKIP IF NO INTERRUPT 


SYS03150 


0042 


c 


70FD 


0316 




MDX 




«-3 *PENDING, BR OTHERWISE 


SYS03160 


0043 





D8D6 


0317 




STO 




$ACEX SAVE ACCUMULATOR, EXTENSION 


SYS03170 


0044 





69D2 


0318 




STX 


1 


$CXR1 SAVE XR1 


SYS03180 


0045 


CO 


C480003F 


0319 




LD 


I 


$DUMP 


SYS03190 


0047 





D0D1 


0320 




STO 




$DMPF SAVE DUMP FORMAT CODE 


SYS03200 


0048 





C8F3 


0321 




LDD 




*S900 


SYS03210 


0049 


CO 


440000F2 


0322 




BSI 


L 


DZOOO SAVE WDS 6-4095 ON CIB 


SYS03220 


0048 





COFO 


0323 




LO 




$S900 


SYS03230 


004C 





70C1 


0324 
0326 


* 


MDX 




$S100 BR TO FETCH CIL, PHASE 1 


SYS03240 
SYS03260 








0327 


*»* FETCH 1 


CORE IMAGE LOADER, PHASE 1 


SYS03270 








0328 


» 








SYS03280 


004D 





COFO 


0329 


$S000 


LD 




$S910 


SYS03290 


004E 





D0C7 


0330 


$S100 


STO 




$RMSW SAVE EXIT-LINK-DUMP SWITCH 


SYS03300 



130 



ADDR 


RE! 


L OBJECT 


ST. NO. 


LABEL 


OPCD 


FT OPERANDS 


ID/SEQNO 


004F 


00 


74C00032 


0331 




MDX 


L tIOCT.0 SKIP IF NO INTERRUPT LEFT 


SYS03310 


0051 





70FD 


0332 




MOX 


•-3 BR IF INTERRUPT(S) PENOING 


SYS03320 


0052 





08BD 


0333 




XIO 


*DABL-1 TURN OFF THE SCA 


SYS03330 


0053 


00 


65800039 


0334 




LDX 


11 SLINK LINK ADDR TO XRl 


SYS03340 


0055 





C101 


0335 




LD 


1 1 FETCH 2ND WD OF LINK NAME 


SYS03350 


0056 





1800 


0336 




RTE 


16 


SYS03360 


0057 





C100 


0337 




LO 


1 FETCH 1ST WD OF LINK NAME 


SYSC3370 


0058 





D8BB 


0338 




STD 


$LKNM SAVE TEMPORARILY 


SYS03380 








0339 


* SS150+1 1 


CONTAINS ADDR LAST WD OF DISK I/O MINUS 3 


SYS03390 


0059 


00 


65000000 


0340 


$S150 


LDX 


LI •-• ADDR END OF DKI/0-1 TO XRl 


SYS03400 


005B 


c 


COFE 


0341 




LD 


$CILA 


SYS03410 


005C 





1890 


0342 




SRT 


16 


SYS03420 


005D 


00 


440000F2 


0343 




BSI 


L DZOOO FETCH CI LOADERt PHASE 1 


SYS03430 


005F 


cc 


74C000EE 


0344 




MOX 


L $CBSY,0 SKIP IF READ OP OONE 


SYS03440 


0061 





70FD 


0345 




MDX 


*-3 BR UNTIL READ FINISHED 


SYS03450 


0062 





4102 


0346 
0347 


• 


BSI 


12 BR TO CI LOADER. PHASE 1 


SYS03460 
SYS03470 


0063 




0005 


0348 




BSS 


5 RESERVED FOR THE 2250 


SYS03480 


0068 




0009 


0349 
0350 


• 


BSS 


9 PATCH AREA 


SYS03490 
SYS03500 


0071 





0000 


0351 


$FLSH 


DC 


•-• FLUSH-TO-NEXT-JOB SWITCH 1=FLUSH 


SYS03510 


0072 




0000 


0352 




BSS 


E 


SYS03520 


0072 





0000 


0353 


SCWCT 


DC 


•-• WORD COUNT AND SECTOR ADDRESS 


SYS03530 


0073 





0000 


0354 




DC 


•-• »FOR SAVING/RESTORING COMMON 


SYS03540 


0074 





0000 


0355 


$CCAD 


DC 


•-• AOOR FOR SAVING/RESTORING COMMON 


SYS03550 


0075 





0000 


0356 


$LSAD 


DC 


•-» SCTR ADDR OF 1ST LOCAL/SOCAL 


SYS03560 


0076 


c 


0000 


0357 


$DZ1N 


DC 


•-» DISKZ/1/N INDICATOR l-l,0,+l» 


SYS03570 


0077 


c 


0000 


0358 


SDCDE 


OC 


*-« LOGICAL DRIVE CODE FOR PROGRAM 


SYS03580 


0078 





0000 


0359 


SPHSfc 


DC 


•-• NO. OF PHASE NOW IN CORE 


SYS03590 


0079 





ooco 


0360 


*UFIO 


DC 


*-• UNFORMATTED I/O RECORD NO. 


SYS03600 


007A 





ooco 


0361 


$WSDR 


DC 


•-• WORKING STORAGE DRIVE CODE 


SYS03610 


0076 





0000 


0362 


$WRD1 


DC 


•-» LOADING ADDR OF THE CORE LOAD 


SY SO 3620 


007C 





oooc 


0363 


$KCSW 


DC 


«-* 1 IF KB.CP BOTH UTILIZED 


SYS03630 


0070 


c 


0000 


0364 


SUFDR 


DC 


•-• UNFORMATTED I/O DRIVE CODE 


SYS03640 


007E 





0000 


0365 


$CPTR 


OC 


•-• CHANNEL 12 INDICATOR FOR CP 


SYS03650 


007F 





0000 


0366 


S1132 


DC 


•-» CHANNEL 12 INDICATOR FOR 1132 


SYS03660 


0080 


e 


0000 


0367 


$1403 


DC 


•-• CHANNEL 12 INDICATOR FOR 1403 


SYS03670 








0369 


* TRAP FOR 


POSTOPERATIVE I/O ERRORS ON LEVEL 1 


SYS03690 








0370 


• 






SYS03700 


0081 





0000 


0371 


SPST1 


DC 


»-• ENTRY POINT 


SYS03710 


0082 





3000 


0372 




WAIT 




SYS03720 


0083 


00 


4C 800081 


0373 
0374 


» 


BSC 


I SPST1 RETURN TO DEVICE SUBROUTINE 


SYS03730 
SYS03740 








0375 


« TRAP FOR 


POSTOPERATIVE I/O ERRORS ON LEVEL 2 


SYS03750 








0376 


* 






SYS03760 


0085 





0000 


0377 


SPST2 


OC 


«-• ENTRY POINT 


SYS03770 


0086 





3000 


0378 




WAIT 




SYS03780 


0087 


00 


4C 800085 


0379 
0380 


• 


BSC 


I $PST2 RETURN TO DEVICE SUBROUTINE 


SYS03790 
SYS03800 








0381 


• TRAP FOR 


POSTOPERATIVE I/O ERRORS ON LEVEL 3 


SYS03810 








0382 


• 






SYS03820 


0089 


c 


0000 


0383 


$PST3 


DC 


»-* ENTRY POINT 


SYS03830 


008A 





3000 


0384 




WAIT 




SYS03840 


0086 


00 


4C 800089 


0385 
0386 


• 


BSC 


I SPST3 RETURN TO DEVICE SUBROUTINE 


SYS03850 
SYS03860 








0387 


* TRAP FOR 


POSTOPERATIVE I/O ERRORS ON LEVEL 4 


SYS03870 








0388 


• 






SYS03880 


0080 





0000 


0389 


$PST4 


DC 


»-» ENTRY POINT 


SYS03890 


008E 





3000 


0390 




WAIT 




SYS03900 


008F 


00 


4C80008D 


0391 
0392 
0393 


• 


BSC 


I $PST4 RETURN TO OEVICE SUBROUTINE 


SYS03910 
SYS03920 
SYS03930 








0394 


» PROGRAM STOP KEY TRAP 


SYS03940 








0395 


• 






SYS03950 


0091 





0000 


0396 


tSTOP 


DC 


*-• ENTRY POINT 


SYS03960 


0092 





3000 


0397 




WAIT 


WAIT TIL START KEY PUSHED 


SYS03970 


0093 


00 


4CC00091 


0398 
0400 


• 


BOSC 


I SSTOP RETURN TO CALLER 


SYS03980 
SYS04000 








0401 


• PARAMETERS USED BY THE DISK I/O SUBROUTINES. THE 


SYS04010 








0402 


• LOGICAL 1 


DRIVE CODE IS FOUND IN BITS 1-3 FOR ALL 


SYS04020 








0403 


• BUT 


THE / 


IREA CODE. BIT WILL ALWAYS BE ZERO. 


SYS04030 








0404 


* 






SYS04040 








0405 


* 






SYS04050 








0406 


**» DISK1 t 


AND DISKN WILL NOT WRITE BELOW THE 


SYS04060 








0407 


*«» FOLLOWING SCTR ADDRESSES (EXCEPT WRITE IMMED). 


SYS04070 








0408 


• 






SYS0408Q 


0095 





OOCO 


0409 


$FPAD 


OC 


•-• FILE PROTECT ADDR, LOGICAL DR 


SYS04090 


0096 


c 


0000 


0410 




DC 


*-• FILE PROTECT ADDR, LOGICAL DR 1 


SYS04100 


0097 


G 


0000 


0411 




DC 


*-* FILE PROTECT ADDR, LOGICAL DR 2 


SYS04110 


0098 





0000 


0412 




DC 


•-• FILE PROTECT ADDR, LOGICAL OR 3 


SYS04120 


0099 


c 


0000 


0413 
0414 


• 


DC 


•-* FILE PROTECT ADDR, LOGICAL DR 4 


SYS04130 
SYS04140 








0415 


•»* THE ARM POSITION IS UPDATED WHENEVER A SEEK 


SYS04150 








0416 


•«* OCCURS 




SYS04160 








0417 


• 






SYS04170 
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AOOR REL OBJECT ST. NO. 



009A 
009B 
009C 
009D 
009E 



OOOO 
OOCO 
0000 
0000 
0000 



009F OOCO 

OOAO 0000 

00A1 0000 

00A2 0000 

00A3 0000 



00A4 





0000 


0OA5 





0000 


00A6 


C 


0000 


00A7 





0000 


00A8 





0000 


00A9 





0000 


OOAA 





0000 


OOAB 





0000 


OOAC 





0000 


OOAD 





0000 


OOAE 





0000 


OOAF 





0000 


OOBO 





0000 


0081 





0000 


00B2 





0000 



00B3 0000 

00B4 6906 

00B5 6A07 

00B6 2807 

00B7 D80A 



00B8 
OOBA 
OOBC 
OOBE 
OOBF 
OOCO 
00C2 
00C2 
00C3 



00 44000000 
00 65000000 
00 66000000 
2000 
C802 
00 4CC000B3 

0000 
0000 
0000 



00C4 





0000 


00C5 





D818 


00C6 





280E 


00C7 





690F 


00C8 





6A10 


O0C9 





0816 


OOCA 





1002 



OOCB 00 4C1000D0 
OOCO 00 4480002C 



0418 
0419 
0420 
0421 
0422 
0423 
0424 
0425 
0426 
0427 
0428 
0429 
0430 
0431 
0432 
0433 
0434 
0435 
0436 
0437 
0438 
0439 
0440 
0441 
0442 
0443 
0444 
0445 
0446 
0447 
0448 
0449 
0450 
0451 
0452 
0453 
0455 
0456 
0457 
0458 
0459 
0460 
0461 
0462 
0463 
0464 
0465 
0466 
0467 
0468 
0469 
0470 
0471 
0472 
0473 
0474 
0475 
0476 
0477 
0478 
0479 
0481 
0482 
0483 
0484 
0485 
0486 
0487 
0488 
0489 
0490 
0491 
0492 
0493 
0494 
0495 
0496 
0497 
0498 
0499 
0500 
0501 
0502 
0503 
0504 
0505 



LABEL OPCD FT OPERANDS 

$CYLN DC ARM POSITION FOR LOGICAL DRIVE 
DC ARM POSITION FOR LOGICAL DRIVE 1 
DC ARM POSITION FOR LOGICAL DRIVE 2 
DC ARM POSITION FOR LOGICAL DRIVE 3 
DC ARM POSITION FOR LOGICAL DRIVE 4 

• 

*«• BELOW ARE THE DISK AREA CODES. A ZERO 

••• INOICATES THE CORRESPONDING DRIVE IS NOT 

»»• ON THE SYSTEM 



SACDE DC 
DC 
DC 
DC 
DC 



AREA CODE FOR LOGICAL DRIVE 

AREA CODE FOR LOGICAL DRIVE 1 

AREA CODE FOR LOGICAL DRIVE 2 

AREA CODE FOR LOGICAL DRIVE 3 

AREA CODE FOR LOGICAL ORIVE 4 



»•• THE ADR OF THE CYLINDER IN WHICH A DEFECT OC- 
• •« CURS, IF ANY, IS STORED IN THE 1ST, 2ND, OR 3RD 
••• WORD BELOW, DEPENDING ON WHETHER IT IS THE 1ST, 
•»» 2ND, OR 3RD DEFECT ON THE CARTRIDGE. 



SDCYL DC 
DC 
DC 
DC 
DC 
DC 
DC 
DC 
DC 
DC 
DC 
DC 
DC 
DC 
DC 



»— • 
«— • 
•— » 



•— « 
#— • 
»— » 
•-» 
•— » 
»— • 



DEFECTIVE CYLINDER AODRESSES 
•FOR LOGICAL DRIVE 



DEFECTIVE CYLINDER ADDRESSES 
•FOR LOGICAL DRIVE 1 



DEFECTIVE CYLINDER ADDRESSES 
•FOR LOGICAL DRIVE 2 



DEFECTIVE CYLINDER AODRESSES 
•FOR LOGICAL DRIVE 3 



DEFECTIVE CYLINDER ADORESSES 
•FOR LOGICAL ORIVE 4 



ILS02 — THIS SUBROUTINE SAVES XR1, XR2, STATUS, 
AND THE ACCUMULATOR AND ITS EXTENSION. 
THE ADDRESS OF THE INTERRUPT SERVICE ROU- 
TINE IS STOREO IN $1205 BY PHASE 2 OF 
THE CORE IMAGE LOADER. WORD 10 ALWAYS 
CONTAINS THE ADDRESS OF $1200. 



$1200 DC 
STX 
STX 
STS 
STD 



$1210+1 
$1210+3 
$1210+4 
$1290 



• $1205+1 CONTAINS ADDR 
$1205 BSI L •-* 
$1210 LDX LI •-« 
LDX L2 



LOS 
LDD 
BOSC I 
$1290 BSS E 
DC 
DC 



•— • 



$1290 

$1200 



•— » 

»— « 



ENTRY PT JLEVEL 2 INTRUPT) 

SAVE XR1 

SAVE XR2 

STORE STATUS 

SAVE ACCUMULATOR, EXTENSION 

INTERRUPT ENTRY PT TO DKI/O 

BR TO SERVICE THE INTERRUPT 

RESTORE XR1 

RESTORE XR2 

RESTORE STATUS 

RESTORE ACCUMULATOR, EXT 

RETURN FROM INTERRUPT 

CONTENTS OF ACCUMULATOR AND 
• EXTENT ION 



ILS04 — THIS SUBROUTINE SAVES XR1, XR2, STATUS, 
AND THE ACCUMULATOR AND ITS EXTENSION. 
IF THE INTERRUPT IS FOR A KEYBOARD REQ- 
UEST, AND IF A MONITOR PROGRAM IS IN CON- 
TROL, CONTROL IS PASSED TO DUMP. OTHER- 
WISE, CONTROL IS PASSED TO THE KEYBOARD/ 
CONSOLE PRINTER SUBROUTINE. WORD 12 AL- 
WAYS CONTAINS THE ADDRESS OF $1400. 

THE TABLE BELCW CONTAINS THE ADDRESSES OF THE 
INTERRUPT SERVICE ROUTINES FOR ALL THE DEVICES 
ON LEVEL 4. 



$1400 DC »-♦ ENTRY POINT 

STD $1490 SAVE ACCUMULATOR, EXTENSION 

STS $1410 SAVE STATUS 

STX 1 $1410+2 SAVE XR1 

STX 2 $1410+4 SAVE XR2 

XIO $1492 SENSE DSW 

SLA 2 IS THIS INTERRUPT REQUEST 

BSC L $1403,- BR IF NOT INTERRUPT REQUEST 

BSI I $IREQ BR IF INTERRUPT REQUEST 



IO/SEQNO 

SYS04180 
SYS04190 
SYS04200 
SYS04210 
SYS04220 
SYS04230 
SYS04240 
SYS04250 
SYS04260 
SYS04270 
SYSC4280 
SYS04290 
SYS04300 
SYS04310 
SYS04320 
SYS04330 
SYS04340 
SYS04350 
SYS04360 
SYS04370 
SYS04380 
SYS04390 
SYS04400 
SYS04410 
SYS04420 
SYS 04430 
SYS04440 
SYS04450 
SYS04460 
SYS04470 
SYS 04480 
SYS04490 
SYS04500 
SYS04510 
SYS 04520 
SYS04530 
SYS04550 
SYS04560 
SYS04570 
SYS04580 
SYS04590 
SYS04600 
SYS04610 
SYS04620 
SYS04630 
SYS04640 
SYS04650 
SYS04660 
SYS04670 
SYS04680 
SYS04690 
SYS04700 
SYS04710 
SYS04720 
SYS04730 
SYS04740 
SYS04750 
SYS04760 
SYS04770 
SYS04780 
SYS04790 
SYS04810 
SYS04820 
SYS04830 
SYS04840 
SYS04850 
SYS04860 
SYS0487C 
SYS04880 
SYS04890 
SYS04900 
SYS04910 
SYS04920 
SYS04930 
SYS04940 
SYS04950 
SYS04960 
SYS04970 
SYSC4980 
SYS04990 
SYS05000 
SYS05010 
SYS05020 
SYS05030 
SYS05040 
SYSC5050 



132 



ADOR REL OBJECT ST. NO. 



LABEL OPCO FT OPERANDS 



IO/SEQNO 



OOCF 


G 


FFFE 


0506 


OC 


-2 ERROR COOE 


SYS05060 


OOOO 


C 


61C9 


0507 


$1403 LDX 


1 9 NO. DEVICES ON LEVEL TO XR1 


SYS05070 


0001 





0810 


0508 


XIO 


$1494 SENSE ILSW 


SYS05080 


0OD2 





1140 


0509 


SLCA 


1 FIND CAUSE OF INTERRUPT 


SYS05090 








0510 


» $1405+1 CONTAINS AODR OF LEVEL 4 IBT MINUS 1 


SYSO510O 


00D3 


00 


45800000 


0511 


$1405 BSI 


11 •-* BR TO SERVICE THE INTERRUPT 


SYS05110 


0005 


C 


2000 


0512 


$1410 LOS 


RESTORE STATUS 


SYS05120 


0006 


00 


65000000 


0513 


LDX 


LI «-* RESTORE XR1 


SYS05130 


0C08 


00 


66C00OOO 


0514 


LDX 


L2 »-• RESTORE XR2 


SYSC5140 


OODA 





C803 


0515 


LDD 


$1490 RESTORE ACCUMULATOR, EXT. 


SYS05150 


0008 


00 


4CC00OC4 


0516 
0517 


BOSC 

* 


I $1400 RETURN 


SYSC5160 
SYS0517O 








0518 


* CONSTANTS AND WORK AREAS 


SYS0518O 








0519 


• EVEN-NUMBERED LABELS ARE ON EVEN BOUNDARIES 


SYS05190 








0520 


» 




SYS05200 


OODD 


c 


OOCO 


0521 


$DDSW DC 


•-» DSW FOR THE DISK 


SYS05210 


OOOE 




0002 


0522 


$1490 BSS 


E 2 CONTENTS OF ACCUMULATOR, EXT. 


SYS05220 


OOEO 





0000 


0523 


$1492 DC 


»— » 


SYS05230 


OOEO 


c 




0524 


$SYSC EQU 


»-l VERSION AND MOO NO. 


SYS05240 


00E1 





OFOO 


0525 


DC 


/OFOO IOCC FOR SENSE IOCC FOR KB/CP 


SYS05250 


00E2 




0001 


0526 


$1494 BSS 


1 PATCH AREA 


SYS05260 


0CE3 


c 


0300 


0527 


OC 


/0300 IOCC FOR SENSING ILSW04 


SYS05270 


00£4 




OOCA 


0529 


BSS 


10 PATCH AREA 


SYS05290 


OOEE 


c 


0000 


0530 


$DBSY DC 


»-« NON-ZERO WHEN DISK I/O BUSY 


SYS05300 



DISKZ 

ADOR REL OBJECT ST. NO. 



LABEL OPCD FT OPERANDS 



ID/SEQNO 







0532 
0533 


• 




» 


SYS05320 
SYS05330 






0534 


•PROGRAM NAME- 


* 


SYS05340 






0535 


• 


•FULL NAME-FORTRAN/SYSTEM DISK I/O SUBROUTINE 


• 


SYS05350 






0536 


• 


•CALLING SEGUENCE- 


• 


SYS05360 






0537 


• 


LDD PARAM 


» 


SYS05370 






0538 


« 


BSI L DISKZ 


• 


SYS05380 






0539 


« 


WHERE PARAM IS THE LABEL OF A DOUBLE-WORD 


* 


SYSC5390 






0540 


• 


CELL CONTAINING THE FUNCTION CODE AND THE 


• 


SYS05400 






0541 


• 


ADDR OF THE I/O BUFFER, I.E., ADDR OF WD CNT. 


• 


SYS05410 






0542 


• 


SEE •CAPABILITIES' FOR DISCUSSION OF PARAM- 


• 


SYS05420 






0543 


• 


ETERS. 


» 


SYS05430 






0544 


• 






SYS05440 






0545 


•PURPOSE- 


• 


SYS05450 






0546 


• 


TO PROVIDE A SUBROUTINE TO PERFORM 01 SK OPERA- 


-• 


SYSC5460 






0547 


• 


TIONS. THIS SUBROUTINE IS INTENDED FOR USE BY 


• 


SYS05470 






0548 


• 


MONITOR PROGRAMS ANC USER PROGRAMS WRITTEN IN 


• 


SYS05480 






0549 


« 


FORTRAN. THUS, IT IS INTENDED FOR USE IN AN 


• 


SYS05490 






0550 


• 


ERROR-FREE ENVIRONMENT. 


• 


SYS05500 






0551 


» 




* 


SYS05510 






0552 


•METHOO- 


• 


SYS05520 






0553 


• 


DISKZ REQUIRES A BUFFER,THE LENGTH OF WHICH IS» 


SYS05530 






0554 


• 


2 GREATER THAN THE NO. WORDS TO BE READ/WRIT- 


• 


SYS05540 






0555 


• 


TEN. 


* 


SYSC5550 






0556 


• 




• 


SYS05560 






0557 


•CAPABILITIES AND LIMITATIONS- 


• 


SYS05570 






0558 


• 


THE WD CNT, AS WELL AS DZOOCMUST BE ON AN EVEN» 


SYS05580 






0559 


• 


BOUNDARY, MUST BE IN THE RANGE 0-32767. THE 


* 


SYS05590 






0560 


• 


ORIVE CODE MUST BE IN BITS 1-3 OF THE SECTOR 


• 


SYS05600 






C561 


* 


ADDR, WHICH FOLLOWS THE WD CNT. THE FUNCTION 


* 


SYS05610 






0562 


• 


INDICATOR MUST BE XXOO FOR A READ OR XXC1 FOR 


• 


SYS05620 






0563 


• 


A WRITE, WHERE »XX» MEANS ANY 2 HEXADECIMAL 


• 


SYS05630 






0564 


• 


CHARACTERS. A WO CNT OF ZERO INDICATES A SEEK. 


,* 


SYS05640 






0565 


• 


(READ OR WRITE MAY BE INDICATED.) AUTOMATIC 


• 


SYS05650 






0566 


• 


SEEKING IS PROVIDED AS A PART OF READ/WRITE. 


• 


SYS05660 






0567 


* 


A WRITE IS ALWAYS WITH A READ-BACK-CHECK. 


• 


SYS05670 






0568 




DISKZ MAKES NO PREOPERATIVE PARAMETER CHECKS. 


• 


SYS05680 






0569 


* 




• 


SYS05690 






0570 


•SPECIAL FEATURES- 


• 


SYS05700 






0571 


• 


DISKZ PROVIDES ONLY THOSE FUNCTIONS MENTIONED 


• 


SYS05710 






0572 


• 


ABOVE. DISK1 AND DISKN OFFER THIS BASIC SET OF* 


SYS05720 






0573 


» 


FUNCTIONS PLUS OTHERS. 


• 


SYS05730 






0574 
0575 

0577 


* 




* 


SYS05740 
SYS05750 

SYS05770 






• 


PROVIDE PARAMETERS FOR SYSTEM LOADER 








0578 


* 






SYS05780 


OOFO 


0000 


0579 




BSS E 




SYS05790 


OOFO 


OOEF 


0580 




DC $ZEND-» DISKZ WORD COUNT 




SYS05800 


0OF1 


FF6A 


0581 




DC -'DZID PHASE ID 




SYS05810 


0OF2 


00E8 


0582 




DC $ZEND-6-«+l AODR OF SLET EXTRACT 




SYS0582O 


0OF3 


00C1 


0583 




DC 1 NO. ENTRIES IN SLET EXTRACT 


SYS05830 


0OF4 




0584 




ORG »-2 




SYS05840 



Appendix H 133 



AODR REL OBJECT ST. NO. 



LABEL OPCD FT OPERANDS 



ID/SEQNO 



0CF2 





0000 


0586 


DZOOO 


DC 




•— » 


ENTRY POINT 


SYS05860 


OOF3 


00 


740000EE 


0587 




MDX 


L 


$DBSY,0 


LOOP UNTIL OPERATION IN 


SYS05870 


00F5 





70FD 


0588 




MOX 




•-3 


♦PROGRESS IS COMPLETE 


SYS05880 


OOF 6 


C 


70G2 


0589 
0590 


# 


MDX 




DZ020 


BR AROUND INT ENTRY POINT 


SYS05890 
SYS05900 








0591 


* INTERRUPT ENTRY POINT 




SYS05910 








0592 


• 










SYS05920 


OCF7 


C 


0000 


0593 


0Z010 


DC 




*— * 


INTERRUPT ADDRESS 


SYS05930 


00F8 





7015 


0594 




MDX 




DZ180 


BR TO SERVICE INTERRUPT 


SYSC5940 


00F9 





690F 


0595 


DZ020 


STX 


1 


DZ100+1 


SAVE XR1 


SYS05950 


COFA 





6A10 


0596 




STX 


2 


DZ100+3 


SAVE XR2 


SYS05960 


OOFB 





1008 


0597 




SLA 




8 


SHIFT INDICATOR 8 BITS 


SYS05970 


OOFC 





D03C 


0598 




STO 




DZ945 


SAVE FUNCTION INDICATOR 


SYS05980 


OOFD 





1800 


0599 




RTE 




16 




SYS05990 


OOFE 





D05B 


0600 




STO 




DZ235+1 


SAVE ADDR OF THE I/O AREA 


SYS06000 


OOFF 





6211 


0601 


DZ03O 


LDX 


2 


•TCNT 


TURN BUSY INDICATOR ON AND 


SYS06010 


0100 





6AED 


0602 




STX 


2 


SDBSY 


•SET RETRY COUNT 


SYS06020 


0101 





COFO 


0603 




LD 




DZOOO 




SYS06030 


0102 





D0F4 


0604 




STO 




DZ010 




SYS06040 


0103 





7053 


0605 




MDX 




DZ230 


BR TO CONTINUE 


SYS06050 


0104 


CO 


4C000000 


0606 
0607 


DZ060 

» 


BSC 


L 


»— • 


BR TO SERVICE THE INTERRUPT 


SYS06C6C 
SYS06070 








0608 


* START ALL DISK OPERATIONS 


SYS06080 








0609 


• 










SYS06090 


0106 





69C8 


0610 


DZ070 


STX 


1 


DZ180+1 


SAVE ADDR OF THE I/O AREA 


SYSC6100 


0107 


c 


081E 


0611 
0612 


* 


XIO 




0Z904 


START AN OPERATION 


SYSC6110 
SYS06120 








0613 


« RETURN TO USER 




SYS06130 








0614 


• 










SYS06140 


0108 


00 


65000000 


0615 


DZ100 


LOX 


LI 


«— • 


RESTORE XR1 


SYS06150 


010A 


00 


66000000 


0616 




LDX 


L2 


»— • 


RESTORE XR2 


SYS06160 


010C 


CO 


4C8000F7 


0617 
0618 


• 


BSC 


I 


DZ010 


RETURN 


SYS06170 
SYS06180 








0619 


« SERVICE ALL 


INTERRUPTS 


SYS06190 








0620 


• 










SYS06200 


010E 


00 


65000000 


0621 


DZ180 


LDX 


LI 


»-» 


ADOR OF I/O AREA TO XR1 


SYS06210 


0110 


GO 


660000F2 


0622 




LDX 


L2 


DZOOO 


ADDR OF DZOOO TO XR2 


SYS06220 


0112 





0819 


0623 




XIO 




DZ910 


SENSE THE DSW 


SYS06230 


0113 





D0C9 


0624 




STO 




$DDSW 


SAVE THE DSW 


SYS06240 


0114 





4850 


0625 




BOSC 




- 


SKIP IF ERROR BIT SET 


SYS06250 


0115 





70EE 


0626 




MDX 




DZ060 


BRANCH IF ERROR BIT NOT SET 


SYS06260 


0116 





C800 


0627 


DZ185 


LDD 




DZ902 


RESTORE WORD COUNT 


SYS06270 


0117 





D900 


0628 




STD 


1 





•AND SECTOR ADDRESS 


SYS06280 


0118 


00 


74FF00EE 


0629 




MDX 


L 


$DBSY,-1 


SKIP IF 16 RETRIES DONE 


SYS06290 


011A 





703E 


0630 
0631 


• 


MDX 




DZ235 


BRANCH IF LESS THAN 16 


SYS06300 
SYS06310 








0632 


« TRAP OUT 


TO 


POSTOPERATIVE TRAP 


SYS06320 








0633 


• 










SYS06330 


011B 





C812 


0634 




LDD 




DZ912 


1+SCTR ADDR TO EXTENSION 


SYS06340 


one 





C014 


0635 




LD 




DZ915 




SYS0635O 


0110 





4293 


0636 


DZ190 


BSI 


2 


$PST2-X2 


BR TO POSTOPERATIVE ER TRAP 


SYS06360 


011E 


c 


1810 


0637 




SRA 




16 


CLEAR 


SYS06370 


011F 


00 


D4800198 


0638 




STO 


I 


DZ350+1 


•ARM POSITION 


SYS06380 


0121 





70DD 


0639 
0640 


* 


MDX 




DZ030 


RETRY OPERATION 


SYS06390 
SYS06400 








0641 


* CONSTANTS AND WORK AREAS 


SYS06410 








0642 


• 










SYS06420 


0122 




0000 


0643 




BSS 


E 







SYS06430 








0644 


* EVEN-NUMBERED LABELS , 


ARE ON EVEN BOUNDARIES 


SYS06440 


0122 





0001 


0645 


DZ900 


DC 




1 CONSTANT, READ-AFTER-SEEK WD CNT 


SYS06450 


0123 





OOCO 


0646 


DZ901 


DC 




CURRENT ARM POSITION 


SYS06460 


0124 





0000 


0647 


DZ902 


DC 




*-• LAST 


TWO WORDS OF SECTOR 


SYS06470 


.0125 





0000 


0648 




DC 




»-• *PREVIOUSLY READ 


SYS06480 


C126 





0000 


0649 


DZ904 


OC 




•-» IOCC 


FOR OPERATION CURRENTLY 


SYS06490 


0127 





0000 


D650 


DZ905 


DC 




»-» «BEING PERFORMED 


SYS06500 


0128 





ooco 


0651 


DZ906 


DC 




»-• SAVE 


AREA FOR IOCC FOR 


SYS06510 


0129 


c 


ooco 


0652 


DZ907 


DC 




*-• *USER-REOUESTED OPERATION 


SYS06520 


012A 


c 


0122 


0653 


DZ908 


DC 




DZ900 IOCC FOR READ 


SYS06530 


012B 





0000 


0654 


DZ909 


DC 




•-. «AFTER SEEK 


SYS06540 


012C 





ooco 


0655 


DZ910 


DC 




•-* 2ND 1 


tfCRD OF SEEK IOCC 


SYSC6550 


012D 


c 


0000 


0656 


DZ911 


DC 




«-« SENSE IOCC 


SYS06560 


012E 





0000 


0657 


DZ912 


DC 




•-* INTERMEDIATE WORD COUNT 


SYS06570 


012F 





ooco 


0658 


0Z913 


OC 




«-« ADDR 


GF NEXT SEQUENTIAL SECTOR 


SYSC6580 


0130 


c 


5002 


0659 


DZ914 


DC 




/5002 WRITE SELECT/POWER UNSAFE INOR 


SYS06590 


0131 





5004 


0660 


DZ915 


DC 




/5004 READ/WRITE/SEEK ERROR INDICATOR 


SYS06600 


0132 





FECO 


0661 


DZ916 


DC 




-320 TG BE USED TO SIMULTANEOUSLY 


SYS06610 


0133 


c 


0001 


0662 




DC 




1 »DECR WD CNT, INCR SCTR ADDR 


SYS06620 


0134 





0080 


0663 


DZ920 


DC 




/0080 READ CHECK BIT FOR IOCC 


SYS06630 


0135 





0600 


0664 


DZ925 


DC 




/0600 2ND 


WD OF READ IOCC W/0 AREA CD 


SYS06640 


0136 


c 


O0C8 


0665 


0Z930 


DC 




8 NO. : 


SECTORS PER CYLINDER 


SYS06650 


0137 


c 


5000 


0666 


DZ935 


DC 




/5000 NOT 


READY DISPLAY CODE 


SYS06660 


0138 





0FF8 


0667 


DZ940 


DC 




/0FF8 'AND' OUT OR CODE, SCTR ADDR 


SYS06670 


0139 





OOCO 


0668 


0Z945 


DC 




*-» FUNC 


INDICATOR (0=READ,1=WRITE) 


SYSC6680 


013A 





0701 


0669 


DZ950 


DC 




/0701 SENSE IOCC W/0 AREA CODE 


SYS06690 


013B 


c 


0007 


0670 


0Z955 


OC 




/0007 »AND' OUT ALL BUT SCTR NO. 


SYS06700 


013C 





OOGA 


0671 


DZ960 


DC 




SDCYL-JCYLN BASE DEFECTIVE CYL ADOR 


SYS06710 



134 



ADDR REL OBJECT ST. NO. 



LABEL OPCD FT OPERANDS 



ID/SEQNO 



C13D 


C 


009F 


013E 





FFFB 


013F 





0000 


0140 





0400 


0141 





0141 


0142 





0000 


0143 





FFFF 


0144 




0002 


00F2 







0146 





1810 


0147 


C 


00A6 


0148 


CO 


74FF0032 


014A 





10C0 


G14B 





70BC 


014C 





C0E3 


014D 





70CF 



014E CCE8 
014F 00 44C00028 
0151 703A 



0152 CODS 

0153 1800 

0154 C101 

0155 1803 

0156 C 704D 



0157 
0159 
015B 
015C 
0150 
015E 
015F 
C160 
0161 
0162 
0163 
0164 
0165 
0166 
0167 
0168 
0169 
C16A 
C16B 
016C 
0160 
016E 
0170 
0171 
0172 
0173 
0174 
0176 
0177 



00 74010032 
00 65000000 
C C900 

D8C7 

D8D0 

1810 

1084 

DOOE 

800B 

D01B 

80DA 

0033 

80D6 

8008 

8007 

D006 

62FD 

698D 

C1C1 

EOCB 

0101 
CO 94000000 
4828 
C 7006 
C C101 
80C2 
00 7401016F 
7201 
C 70F5 



0178 CO 
017A 
017B 
017C C 



0170 00 



017F 
0180 
0181 
0182 
0183 
0184 
0185 



6600C0F2 

C23D 

E249 

0250 

C4C0O00O 

EA4E 

023A 

EA43 

0239 

EA50 

9247 

0237 



0672 
0673 
0674 
0675 
0676 
0677 
0678 
0679 
0680 
0681 
0682 
0683 
0684 
0685 
0686 
0687 
0688 
0689 
0690 
0691 
0692 
0693 
0694 
0695 
0696 
0697 
0698 
0699 
070C 
0701 
0702 
0703 
0704 
0705 
0706 
0707 
0708 
0709 
0710 
0711 
0712 
0713 
0714 
0715 
0716 
0717 
0718 
0719 
0720 
0721 
0722 
0723 
0724 
0725 
0726 
0727 
0728 
0729 
0730 
0731 
0732 
0733 
0734 
0735 
0736 
0737 
0738 
0739 
0740 
0741 
0742 
0743 
0744 
0745 
0746 
0747 
0748 
0749 
0750 
0751 
0752 
0753 
0754 
0755 
0756 
0757 



DZ965 DC $ACDE BASE AREA CODE ADDR 

DZ970 DC $CYLN-$ACD£ BASE ARM POSITION ADDR 

DZ975 DC •-• 2ND WORD OF READ CHECK IOCC 

DZ980 OC /0400 2ND WD OF SEEK IOCC W/0 AREA CD 

DZ985 OC 321 NO. WORDS PER SECTOR (W/ AODR) 

DZ990 OC •-» CURRENT SECTOR NO. 

DZ995 DC -1 MASK FOR COMPLEMENTING 

• 

• RESERVED FOR SAVING CORE ON A DUMP ENTRY TO SKEL 



BSS 
EQU 



DZ210 SRA 
STO 
MDX 
NOP 
KDX 



2 THIS AREA MUST BE AT iCIBA+319 
DZOOO 



16 

$DBSY CLEAR BUSY INDICATOR 
L $I0CT,-1 DECREMENT IOCS COUNTER 



DZ100 TO EXIT 
* PREPARE TO TRAP OUT ON 'POWER UNSAFE' CONDITION 



DZ215 LD 
MOX 



DZ914 
0Z190 



BR TO TPAP OUT 
* 
• PREPARE TO TRAP OUT ON 'NOT READY* CONDITION 



DZ220 LD 
BSI 

MDX 



DZ225 LD 
RTE 
LD 
SRA 
MDX 



0Z230 MDX 
DZ235 LDX 
LDD 
STD 
STD 
DZ240 SRA 
SLT 
STO 
A 

STO 
A 

STO 
A 
A 
A 

STO 
LDX 
STX 
LD 
AND 
DZ250 STO 
DZ280 S 

BSC 

MDX 

LD 

A 

MDX 

MDX 

MDX 



DZ935 

L $PRET 

DZ340 



DZ910 
16 
1 1 
3 
DZ380 



$I0CT,1 

•— • 



DZ902 

DZ912 

16 

4 

0Z280+1 

DZ965 

DZ330+1 

DZ970 

DZ350+1 

DZ960 

0Z280+1 

DZ280+1 

DZ280+1 

-3 

DZ906 

1 

DZ940 

1 

»— » 

Z + 

OZ300 

1 

DZ930 

0Z280+1.1 

1 

0Z250 



FETCH ERROR CODE 

BR TO PREOPERATIVE ERR TRAP 

RETRY THE OPERATION 



FETCH 1ST WD SEEK IOCC 
FETCH DESIRED CYLINDER AODR 
BR TO PERFORM THE SEEK 



INCREMENT IOCS COUNTER 
ADDR I/O AREA TO XR1 



SAVE WORD COUNT, SCTR ADDR 



DRIVE CODE IN BITS 12-15 

COMPUTE AND STORE THE 
•ADDR OF THE AREA CODE 
COMPUTE AND STORE THE 
♦ADDR OF THE ARM POSITION 
ADO IN BASE DT ADOR 
ADD IN THE DRIVE 
•CODE TWICE MORE 

INITIALIZE COUNTER FOR LOOP 

FETCH DESIRED SECTOR ADDR 

•AND' OUT SECTOR NO. 

•AND DRIVE CODE 

SUB DEFECTIVE CYLINDER ADDR 

SKIP IF BAD CYLINDER 

BR TO CONTINUE PROCESSING 

INCREMENT SCTR ADDR BY 8 
POINT TO NEXT DEFECTIVE CYL 
SKIP AFTER 3RD PASS 
COMPARE W/ NEXT DEF CYL ADR 



CONSTRUCT THE 2ND WORD OF ALL IOCC'S 



DZ300 LDX 
LD 
AND 
STO 

DZ330 LD 
OR 
STO 
OR 
STO 
OR 
S 
STO 



L2 DZOOO ADDR OF DZOOO TO XR2 

2 DZ913-X2 FETCH SECTOR ADDRESS 

2 DZ955-X2 'AND' OUT ALL BUT SECTOR NO 

2 DZ990-X2 SAVE SECTOR NO. 

L •-• FETCH AREA COOE 

2 DZ980-X2 'OR' IN SEEK FUNCTION CODE 

2 DZ910-X2 SEEK IOCC MINUS DIRECTION 

2 0Z925-X2 'OR' IN READ FUNCTION CODE 

2 DZ909-X2 IOCC FOR READ-AFTER-SEEK 

2 DZ990-X2 'OR' IN SECTOR NO. 

2 DZ945-X2 COMPLETE READ/WRITE CODE 

2 DZ907-X2 2ND WD OF READ/WRITE IOCC 



SYS06720 
SYS06730 
SYS06740 
SYS06750 
SYS06760 
SYS06770 
SYS 06780 
SYS06790 
SYS06800 
SYS06810 
SYS06820 
SYS06830 
SYS06840 
SYS06850 
SYS06860 
SYS06870 
SYS06880 
SYS06890 
SYS06900 
SYS06910 
SYS06920 
SYS06930 
SYS06940 
SYS06950 
SYS06960 
SYS06970 
SYS06980 
SYS06990 
SYS07000 
SYS07010 
SYS07020 
SYS07030 
SYS07040 
SYS07050 
SYS07060 
SYSC7070 
SYS07080 
SYS07090 
SYS07100 
SYS07110 
SYS07120 
SYS07130 
SYS07140 
SYS07150 
SYS07160 
SYS07170 
SYS07180 
SYS07190 
SYS07200 
SYS07210 
SYS07220 
SYS07230 
SYS07240 
SYS07250 
SYS07260 
SYS07270 
SYS07280 
SYS07290 
SYS07300 
SYS07310 
SYS07320 
SYS07330 
SYS07340 
SYS07350 
SYS07360 
SYS07370 
SYS07380 
SYS07390 
SYS07400 
SYS07410 
SYS07420 
SYS07430 
SYS07440 
SYS07450 
SYS07460 
SYS07470 
SYS07480 
SYS07490 
SYS07500 
SYS07510 
SYS07520 
SYS07530 
SYS07540 
SYS07550 
SYS07560 
SYS07570 



Appendix H 135 



ADOR REL OBJECT ST. NO. 



LABEL OPCO FT OPERANDS 



IO/SEQNO 



0186 
0187 
0188 
0189 
018A 
0188 
018C 
018D 
018E 
018F 
0190 
0191 
0192 
0193 
0194 
0195 
0196 
0197 
0199 
019A 



019B 

019C 

0190 

019E 

019F 

01A0 

01A1 

01A2 

01A3 

01A4 

01A5 



EA42 

8247 

024D 

EA48 

D23B 

CA3C 

0A3A 

02EB 

4828 

70BC 

1002 

4828 

70BB 

100B 

4828 

70BC 

C101 

94000000 

4818 

7014 



1893 
180F 
1002 
EA3A 
18D0 
4810 
7002 
F251 
8230 
DA 34 
4213 



01A6 
01A7 
01A8 



CA38 
DA 34 
4213 



01A9 C231 
01AA 00 D4800198 
01AC C 9101 
01AD 00 4C200116 



01AF 
01B0 
01B1 
0182 
01B3 
01B4 
01B5 
01B6 
01B7 
01B8 
01B9 
01BA 
01BB 
018C 
01BD 



01BE 
01BF 
OICO 
01C1 
01C2 
01C3 
01C4 
01C5 
01C6 
01C7 
01C8 
01CA 
G1CB 
01CC 
OICO 
01CE 



CA3C 
4808 
7094 
8A40 
DA3C 
4830 
1810 
824F 
D100 
CA36 
DA34 
C101 
EA50 
D101 
4213 



C24D 

D235 

C247 

4820 

4213 

CA32 

D900 

C23C 

4808 

70E9 
00 75C0C140 
C900 
DA32 
CA3C 
D900 
708F 



0758 
0759 
0760 
0761 
0762 
0763 
0764 
0765 
0766 
0767 
0768 
0769 
0770 
0771 
0772 
0773 
0774 
0775 
0776 
0777 
0778 
0779 
0780 
0781 
0782 
0783 
0784 
0785 
0786 
0787 
0788 
0789 
0790 
0791 
0792 
0793 
0794 
0795 
0796 
0797 
0798 
0799 
0800 
0801 
0802 
0803 
0804 
0805 
C806 
0807 
0808 
0809 
0810 
0811 
0812 
0813 
0814 
0815 
0816 
0817 
0818 
0819 
0820 
0821 
0822 
0823 
0824 
0825 
0826 
0827 
0828 
0829 
0830 
0831 
0832 
0833 
0834 
0835 
0836 
0837 
0838 
0839 
0840 
0841 
0842 



GR 

A 

STO 

OR 

STO 

LDD 

DZ340 XIO 
STO 
BSC 
MDX 
SLA 
BSC 
MDX 
SLA 
BSC 
MDX 
LD 

DZ350 S 

BSC 
HDX 

• 

» SEEK 

• 

SRT 

SRA 

SLA 

OR 

RTE 

BSC 

MDX 

EOR 

A 

DZ380 STD 
BSI 



DZ920-X2 

0Z945-X2 

DZ975-X2 

DZ950-X2 

DZ911-X2 

DZ912-X2 

DZ910-X2 

JD0SW-X2 

Z+ 

DZ215 

2 

Z* 

DZ220 

11 

Z + 

DZ225 

1 

*— • 

+- 

DZ400 



•OR' IN READ CHECK BIT 

2ND WD OF READ CHECK IOCC 
•OR* IN SENSE IOCC BITS 
COMPLETED SENSE IOCC 
1+SCTR ADOR TO EXTENSION 
SENSE FOR OISK READY 
SAVE THE DSW 

SKIP UNLESS POWER UNSAFE OR 
•WRITE SELECT, BR OTHERWISE 
BR TO PREOPERATIVE ERR TRAP 
♦IF DISK NOT READY, SKIP 
•OTHERWISE 



FETCH DESIRED CYLINDER AODR 
SUBTRACT ARM POSITION 
SKIP IF SEEK NECESSARY 
BRANCH TO PERFORM OPERATION 



19 

15 

2 

DZ910-X2 

16 

DZ380 

DZ995-X2 

DZ900-X2 

DZ904-X2 

DZ070-1-X2 



PUT NO. CYLINDERS IN EXT 
+ OR - SIGN TO BIT 15 
SHIFT SIGN TO BIT 13 
OR IN REMAINDER OF IOCC 

SKIP IF SEEK TOWARD HOME 
BRANCH IF SEEK TOWARD CENTR 
COMPLEMENT NO. CYLS TO BE 
•SOUGHT TO GET POSITIVE NO. 

START SEEK 



• SEEK COMPLETE INTERRUPT PROCESSING 
» 

LDD 2 DZ908-X2 SET UP IOCC FOR 

STD 2 0Z904-X2 »READ AFTER SEEK 

BSI 2 DZ070-1-X2 START READ-AFTER-SEEK 

• READ-AFTER-SEEK COMPLETE INTERRUPT PROCESSING 



LD 2 0Z901-X2 

STO I DZ350+1 

S 11 

BSC L DZ185.Z 



• READ/WRITE 

* 

DZ400 LDC 
BSC 

DZ410 MDX 
AO 
STD 
BSC 
SRA 
A 

STO 
LDD 
STD 
LD 
OR 
STO 
BSI 



2 DZ912-X2 



DZ210 
2 0Z916 
2 DZ912 

Z- 

16 
2 DZ985 

1 

2 DZ906 
2 DZ904 

1 1 

2 DZ990 

1 1 

2 DZ070 



•X2 



FETCH ADR OF SCTR JUST READ 
UPDATE ARM POSITION 
SUB DESIRED SCTR AODR 
BR IF SEEK UNSUCCESSFUL 



FETCH INTERMEDIATE WD CNT 
SKIP, WD CNT NOT EXHAUSTED 
BRANCH IF READ/WRITE DONE 
DECREMENT WORD COUNT AND 
•INCREMENT SECTOR ADDRESS 
SKIP IF THIS IS LAST SECTOR 
CLEAR ACCUMULATOR 
ADD BACK 321 TO WD CNT 
STORE RESULT IN I/O AREA 
RESTORE IOCC FOR ORIGINALLY 
•REQUESTED OPERATION 
ADD SECTOR NO* TO SECTOR 
•ADDRESS ' 



-1-X2 START REAO/WRITE OPERATION 



• READ/WRITE COMPLETE INTERRUPT PROCESSING 



LD 

STO 

LD 

BSC 

BSI 

LDD 

STD 

LD 

BSC 

MDX 

MDX 

LDD 

STD 

LOO 

STO 

MOX 



DZ975 

DZ905 

DZ945 

Z 

DZ070 

DZ902 



DZ912 



SET UP FOR READ CHECK 



DZ410 
LI 320 

1 

2 DZ902- 
2 DZ912- 
1 

DZ240 



X2 FETCH FUNCTION INDICATOR 

SKIP IF READ REQUESTED 
1-X2 START READ CHECK OPERATION 
X2 RESTORE LAST 2 WDS OF SEC- 
TOR PREVIOUSLY READ 
-X2 FETCH INTERMEDIATE WD CNT 

SKIP IF MORE READING/WRTING 
BRANCH IF FINISHED 
POINT XR1 TO. NEW I/O AREA 
SAVE LAST 2 WDS OF SECTOR 
X2 «JUST READ/WRITTEN 
•X2 WD CNT, SCTR ADDR NEXT OP 
STORE BOTH IN NEW I/O AREA 
BACK TO SET UP NEXT OPERATN 



SYS07580 
SYS07590 
SYS07600 
SYS07610 
SYS07620 
SYS07630 
SYS07640 
SYS07650 
SYS07660 
SYS07670 
SYS07680 
SYS07690 
SYS07700 
SYS07710 
SYS07720 
SYS07730 
SYS07740 
SYS07750 
SYS07760 
SYS07770 
SYS07780 
SYS07790 
SYS07800 
SYS07810 
SYS07820 
SYS07830 
SYS07840 
SYS07850 
SYS07860 
SYS07870 
SYS07880 
SYS07890 
SYSC7900 
SYS07910 
SYS07920 
SYS07930 
SYS07940 
SYS07950 
SYSC7960 
SYS07970 
SYS07980 
SYS07990 
SYS08000 
SYS08010 
SYS08020 
SYS08030 
SYS08040 
SYS08050 
SYS08060 
SYS08070 
SYS08080 
SYS08090 
SYS08100 
SYSC8110 
SYS08120 
SYS08130 
SYS08140 
SYS08150 
SYS08160 
SYS08170 
SYS081S0 
SYS08190 
SYS08200 
SYSC8210 
SYS08220 
SYS08230 
SYS08240 
SYS08250 
SYS08260 
SYS08270 
SYS08280 
SYS08290 
SYS08300 
SYS08310 
SYS08320 
SYS08330 
SYS08340 
SYS08350 
SYS08360 
SYS08370 
SYS08380 
SYS08390 
SYS08400 
SYS08410 
SYS08420 
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ADDR REL OBJECT ST. NO. 



LABEL OPCD FT OPERANDS 



ID/SEQNO 







0843 


* 








SYS08430 






0844 


• 








SYS08440 


OICF 


OOOB 


0845 
0846 
0847 


• 
• 


BSS 


11 


PATCH AREA 


SYS08450 
SYS08460 
SYS08470 


OlOA 


OOAO 


0848 




DC 


•CIL1 


ID NO. OF CORE IMAGE LDR.P1 


SYS08480 


C1DB 


OOCO 


0849 


SCIDN 


DC 


»— » 


CORE ADDR/CID NO. 


SYS08490 


OlDC 


OOCO 


0850 




DC 


•— • 


WORD COUNT 


SYS08500 


OlOD 


OOOO 


0851 




DC 


*— » 


SCTR ADDR 


SYS08510 


OlDE 


0002 


0852 




BSS 


2 


WD CNT, SCTR ADDR CORE LDS 


SYS08520 


OlEO C 




0853 


SZENO 


EQU 


• 


1 + END OF DISKZ 


SYS08530 



EQUI\ 


/ALENCES 


















AODR 


REL OBJECT 


ST. NO. 


LABEL 


OPCD 


FT OPERANDS 






ID/SEQNO 






0855 


• 












SYS08550 






0856 


• EQUIVALENCES FOR 


PHASE ID NUMBERS 




SYS08560 






0857 


• 












SYS08570 


006E 





0858 


'SUP1 


EQU 


110 




PHASE ID FOR 


MCRA 


SYSC8580 


0070 


C 


0859 


•SUP3 


EQU 


112 




PHASE ID FOR 


DUMP PROGRAM 


SYS08590 


0071 


C 


0860 


•SUP4 


EQU 


113 




OHASE ID FOR 


ERR ANAL PROG 


SYS08600 


0078 





0861 


•CLBO 


EQU 


120 




PHASE ID FOR 


CLB, PHASE 0/1 


SYS08610 


008C 





0862 


•1403 


EQU 


140 




PHASE ID FOR 


SYS 14C3 SUBR 


SYS08620 


C08D 


C 


0863 


•1132 


EQU 


141 




PHASE ID FOR 


SYS 1132 SUBR 


SYS08630 


00 8E 





0864 


•CPTR 


EQU 


142 




PHASE ID FOR 


SYS CP SUBR 


SYS08640 


008F 





0865 


•2501 


EQU 


143 




PHASE ID FOR 


SYS 2501 SUBR 


SYS08650 


0090 


c 


0866 


•1442 


EQU 


144 




PHASE ID FOR 


SYS 1442 SUBR 


SYS08660 


0091 





0867 


•1134 


EQU 


145 




PHASE 10 FOR 


SYS 1134 SUBR 


SYS08670 


0092 





0868 


•KBCP 


EQU 


146 




PHASE ID FOR 


SYS KB/CP SUBR 


SYSC8680 


0093 


c 


0869 


•COCV 


EQU 


147 




PHASE ID FOR 


SYS CD CONV 


SYS08690 


0094 


c 


0870 


•PTCV 


EQU 


148 




PHASE ID FOR 


SYS 1134 CONV 


SYS08700 


0095 





0871 


•KBCV 


EQU 


149 




PHASE ID FOR 


SYS KB CONV 


SYS08710 


0096 





0872 


•DZID 


EQU 


150 




PHASE ID FOR 


OISKZ 


SYS08720 


0097 


c 


0873 


•DUD 


EQU 


151 




PHASE ID FOR 


DISK I 


SY SO 8 730 


0098 





0874 


•DNID 


EQU 


152 




PHASE ID FOR 


DISKN 


SYS08740 


OOAO 





0875 


•CIL1 


EQU 


160 




PHASE ID FOR 


CI LOADER, PH 1 


SYS0875O 


00A1 





0876 
0877 


•CIL2 


EQU 


161 




PHASE ID FOR 


CI LOADER, PH 2 


SYS08760 
SYS08770 






0878 


* EQUIVALENCES FOR 


RESIDENT MONITOR 




SYS08780 






0879 


* 












SYS08790 


0014 





0880 


$LKNH 


EQU 


SHASH 


SAVE AREA FOR NAME OF LINK 


SYS08800 


0016 





0881 


$RHSW 


EQU 


JHASH+2 


EXIT-LINK-DUMP SW(-1,0,+1) 


SYS08810 


0017 





0882 


SCXR1 


EQU 


$MSH+3 


SAVE AREA FOR XR1 


SYS08820 


C018 





0883 


SCLSW 


EQU 


SHASH+4 


SH FOR CORE 1 


[MAGE LDR,PH 2 


SYS08830 


0019 


c 


0884 


$DMPF 


EQU 


SHASH+5 


DUMP FORMAT CODE 


SYS08840 


001A 





0885 


$ACEX 


EQU 


tHASH+6 


ACC AND EXT WHEN ENTER DUMP 


SYS08850 


005A 





0886 


SCI LA 


EQU 


JS150+1 


ADDR OF END OF OK 1/0-3 


SYS08860 


00B9 





0887 


JIBT2 


EQU 


J 1205+1 


ADR OF SERVICE PART OF DKIO 


SYSG8870 


C0D4 





0888 


$IBT4 


EQU 


$1405+1 


ADDR OF THE 1 


IBT 


SYS08880 


OOEF 





0889 


$SNLT 


EQU 


SDBSY+1 


SENSE LIGHT 1 


INDICATOR 


SYS08890 


OOFO 





0890 


SPAUS 


EQU 


DZ000-2 


PAUSE, INTERRUPT INDICATOR 


SYS08900 


O0F1 





0891 


$RWCZ 


EQU 


DZOOO-1 


READ/WRITE SWITCH (CARDZ) 


SYS08910 






0892 


• 












SYS08920 






0893 


* EQUIVALENCES FOR 


ABSOLUTE SECTOR ADDRESSES 


SYS08930 






0894 


* 












SYS08940 


0000 





0895 


•I DAD 


EQU 





ADDR 


OF SCTR WITH 


ID,DEF CYL ADR 


SYS08950 


0001 





0896 


•DCOM 


EQU 


1 


ADDR 


OF SCTR CONTAINING DCOM 


SYS08960 


0002 





0897 


•RIAD 


EQU 


2 


AODROOF SCTR CONTAINING RES IMGE 


SYS08970 


0003 





0898 


•SLET 


EQU 


3 


ADDR 


OF SCTR CONTAINING SLET 


SYS08980 


0006 





0899 


•RTBL 


EQU 


6 


AODR 


OF SCTR CONTAINING RELD TBL 


SYS08990 


0007 





0900 


•HDNG 


EQU 


7 


ADDR 


OF SCTR CONTAINING PAGE HDR 


SYS09000 


0000 





0901 


•STRT 


EQU 





ADDR 


OF SCTR W/ COLD START PROG 


SYS09010 






0902 


• 












SYS09020 






0903 


» EQUIVALENCES FOR 


THE CORE IMAGE HEADER 


SYS09030 






0904 


» 












SYS09040 


0000 





0905 


•XEQA 


EQU 





RLTV 


ADDR OF CORE 


LOAD EXEC ADDR 


SYS09050 


0001 


c 


0906 


•CMON 


EQU 


1 


RLTV 


ADDR OF WD CNT OF COMMON 


SYS09060 


0002 





0907 


•DREC 


EQU 


2 


RLTV 


ADDR OF DISK 


I/O INDICATOR 


SYS09070 


C003 





0908 


•FILE 


EQU 


3 


RLTV 


ADDR OF NO. FILES DEFINED 


SYS09080 


0004 





0909 


■HHCT 


EQU 


4 


RLTV 


ADDR OF WD CNT OF CI HEADER 


SYSC9090 


0005 





0910 


•LSCT 


EQU 


5 


SCTR 


CNT OF FILES 


IN WK STORAGE 


SYS09100 


0006 





0911 


'LOAD 


EQU 


6 


RLTV 


ADDR OF LOAD 


ADDR CORE LOAD 


SYS09110 


0007 





0912 


•XCTL 


EQU 


7 


RLTV 


ADDR DISK1/DISKN EXIT CTRL 


SYS09120 


0008 





0913 


•TVWC 


EQU 


8 


RLTV 


ADDR OF WD CNT OF TV 


SYS09130 


0009 





0914 


•WCNT 


EQU 


9 


RLTV 


ADDR OF WD CNT OF CORE LOAD 


SYS09140 


OOOA 





0915 


•XR3X 


EQU 


10 


RLTV 


ADDR OF EXEC 


SETTING OF XR3 


SYS09150 


OOOB 





0916 


•ITVX 


EQU 


11 


RLTV 


ADDR OF 1ST WD OF I TV 


SYS09160 


0011 


C 


0917 


•ILS4 


EQU 


17 


RLTV 


ADDR OF 1ST UD OF IBT4 


SYS09170 


001A 





0918 


•OVSW 


EQU 


26 


RLTV 


ADOR OF LOCAL/SOCAL SWITCH 


SYS09180 


001C 





0919 


•CCRE 


EQU 


28 


CORE 


SIZE OF BUILDING SYSTEM 


SYS09190 
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ADDR REL OBJECT 
001D 



0005 
0003 
0000 
0001 
0003 
0004 
0000 
0002 



0033 





0005 





0180 





04C0 





0600 





0011 


o 


00F9 





00F7 


or 


1000 





007F 






oieo n 

01F1 



61 7F 
C82F 



01E2 00 DCOO0OP4 



01E4 
01E5 
01E6 
01E7 
01F8 
01E9 
01EA 
OlErt 
01FC 
OIEO 



0125 
C194 
Ol2r 
0029 
C156 
0OF1 
COF& 
1890 
016F 
01IB 



ST. NO. 

0920 
0921 
0922 
0923 
0924 
0925 
0926 
0927 
0928 
0929 
0930 
0931 
0932 
0933 
0934 
0915 
0936 
0937 
093 3 
093 9 
0940 
0941 
0942 
0943 
094.4 
0946 
"947 
0948 
0949 
0950 
0951 
0952 
'0953 
0954 
0955 
0956 
0957 
"953 
*959 
0960 
0961 
0962 
0963 
0964 
0965 
0966 
0967 
0963 
0969 
0970 
0971 
0972 
0973 
0974 
0975 
0976 
0977 
0978 
0979 
0980 
0981 
0932 
0933 
0984 
098 5 
0986 
0987 
0988 
0939 
0990 
0J91 
09«2 
0993 
0994 
0995 
r>996 
0997 

r>999 
1C0Q 
1001 
1002 
10O3 
1004 
1005 
1006 
1007 
1O03 
1009 
1010 
1011 
1012 
1013 
1014 



LABEL OPCD FT OPERANDS 

•HEND EOU 29 RLTV ADDR OF LAST WD OF CI HDR 

» EQUIVALENCES FOR LET/FLET 
• 

•LFHD EOU 5 WORD COUNT OF LET/FLET HEADER 

•LFEN EOU 3 NO OF MDS PER LET/FLET ENTRY 

•SCTN EOU RLTY ADDR OF LET/FLET SCTR NO. 

•UAFX EQU 1 RLTV ADDR OF SCTR ADDR OF UA/FXA 

•WDSA EQU 3 RLTV ADDR OF MDS AVAIL IN SCTR 

•NEXT EQU 4 RLTV ADDR OF ADDR NEXT SCTR 

•LFNM EQU RLTV ADDR OF LET/FLET ENTRY NAME 

•BLCT EQU 2 RLTV ADOR OF LET/FLET ENTRY DBCT 



MISCELLANEOUS EQUIVALENCES 



•ISTV EQU 

•MXJR EQU 
•COMZ EQU 

•:oni EQU 

•COM2 EQU 
■TCNT EQU 
•3KEP EQU 
•DKIP EQU 
•MC0R EQU 
V EOU 



51 

5 

896 



2-1 



ISS NO. ADJUSTMENT FACTOR 
MAX NO. DRIVES SUPPORTED 
LOW COMMON LIMIT FOR DISKZ 
1216 LOW COMMON LIMIT FOR OiSKl 
1536 LOW COMMON LIMIT OF DISKN 
17 NO. TRIES BEFORE DISK ERROR 
DZ00O+7 LIBF ENTRY TO DISK1/N 
OZ00O+5 DISK I/O INTERRJPT ENTRY PT 
4096 SIZE OF MINIMJM CORE 2-1 

127 



********************* ****************************** 

* * 

* STATUS - VERSION 2t MODIFICATION LEVEL 0. * 

* * 
♦FUNCTION/OPERATION - * 

* Til S PROGRAM IS READ INTO CORE FROM SECTOR * 

* OF THE SYSTEM CARTRIDGE AND TRANSFERRED TO BY * 

* THE COLO START CARD. DEFECTIVE CYLINDER * 

* AODRESSESf CARTRIDGE ID AND DISKZ ARE ALSO ON * 

* SECTOR AND ARE READ IN AT THE SAME TIME. * 

* ALL THAT REMAINS FOR THE COLD START PROGRAM IS* 

* TO READ IN THE RESIDENT IMAGEt SAVE THE * 

* CARTRIDGE ID AND TRANSFER TO THE AUXILIARY * 

* SUPERVISOR THROUGH *DUMP IN THE RESIDENT * 

* MONI TOR. * 

* * 
♦ENTRY - CR010-2 * 

* ENTER PROGRAM 8Y TRANSFER FROM COLD START CARD* 

* * 
♦INPUT - * 

* THE CARTRIDGE ID OF LOGICAL ORIVE ZERO (THE * 

* SYSTEM CARTRIDGE! IS READ IN FROM SECTOR * 

* WI TH THE COLD START PROGRAM. * 

* * 
♦OUTPUT - * 

* ♦ THE RESIDENT IMAGE IS READ INTO CORE FROM ♦ 

* THE OISK. ♦ 

* ♦IN COMMA- * 

* iACDE ♦ 

* SCIBA-1 * 

* SCION * 

* SCYLN * 

* SDBSY * 

* $1 DC T ♦ 

* * 
♦EXTERNAL REFERENCES - ♦ 

* 3Z000 SUBROUTINE TO PERFORM DISK I/O. * 

* * 
♦EXITS - * 

* THE ONLY EXIT IS TO THE AUXILIARY SUPERVISOR ♦ 

* AS FULLOWS- * 

* B SI $DUMP * 

* DC -1 * 



♦TA3LES/W0RK AREAS 



N/A 



♦ATTRIBUTES - * 

* THIS PROGRAM IS NOT NATURALLY RELOCATABLE. * 

* * 
♦NOTES - * 

* 31 SK ERRORS RESULT IN A WAIT AT SPST2. * 
*************************************************** 



* READ THE RESIDENT IMAGE INTO CORE 



LDX 
LOO 
:*oio STD 
STO 
LD 
STO 
STO 
LD 
STO 
LD 
SRT 
STO 
STO 



1 Y 

CR920 SET UP WORD COUNT AND SCTR 

L SCIBA-1 *AODR OF RESIDENT IMAGE 

I SDCYL-Y ♦INITIALIZE DEF CYL NO. 1 

1 3-Y FETCH LOG DRIVE AREA CODE 

I SACDE-Y *AND STORE IT IN COMMA 

CR920+1 SAVE THE ARfcA CODE 
I DZO00-2-27-Y FETCH AND SAVE THE 

*CIDN ♦CARTRIDGE ID 

CR010*1 FETCH CORE ADDR OF RESIDENT 

16 ♦IMAGE AND PJT IN EXTENSION 

I 4D3SY-Y CLEAR DISK BUSY INDICATOR 

1 SCYLN-Y INITIALIZE ARM POSITION 



ID/SEQNO 

SYS09200 
SYS09210 
SYS09220 
SYS09230 
SYS09240 
SYS09250 
SYS09260 
SYS09270 
SYS09280 
SYS09290 
SYS09300 
SYS09310 
SYS09320 
SYS09330 
SYS09340 
PMN 09345 
PMN 09350 
PMN09360 
PMN 09370 
PMN09380 
PMN09390 
PMN09400 
PMN 09410 
PMN09417 
PMN09420 
PMN 09 440 
PMN09450 
PMN 09460 
PMM09470 
PMN 09480 
PMN09490 
PMN 09500 
PMN09510 
PJ*N09 520 
PMN09530 
PMN09540 
PMN 09550 
PMN 09560 
PMN09 570 
PMN 09 580 
PMN 09590 
PMN 09600 
PMM09610 
PMN 09620 
PMN 09630 
PMM09640 
PMM09650 
PMN 09660 
PMN 09670 
PMN 09680 
PMN09690 
PMN09700 
PMN 097 10 
PMN 09720 
PMN09730 
PMN 69740 
PMN 09750 
PMN 09760 
PMN 09770 
PMN 09780 
PMN09790 
PMN09 800 
PMN09810 
PMN 09820 
PMN 09830 
PMN 09 840 
PMN09850 
PMN09 860 
PMN09870 
PMN 09880 
PMN09890 
PMN09 900 
PMN09910 
PMN09920 
PMN09930 
PMN 09940 
PMN09950 

PMN 09970 
PMN 09980 
PMN09990 
PMN 10000 
PMN10010 
PMN 10020 
PMN 10030 
PMN 10040 
PMN 10050 
PMN 10060 
PMN 10070 
PMN 10080 
PMN 10090 
PMN 10100 
PMN10110 
PMN 10120 
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ADDR REL OBJECT ST. NO. 



LABEL OPCO FT OPERANDS 



ID/SEQNO 



OtfEF 
OlEF 



4173 
30"" 



O1F0 





1810 


01F1 





01B3 


01F2 





C81B 


01F3 





0985 


01F4 





C01C 


01F5 





0120 


01F6 





C016 


01F7 


n 


0131 



01F8 41CC 
01F9 FFFF 



01FA 



0013 



0200 





703F 


020E 





0001 


020F 





0007 


0210 





00E8 


0211 





0002 


0212 




0000 



1015 
1016 
1017 
1016 
1019 
1020 
1021 
1022 
1023 
1024 
1025 
1026 
1027 
1028 
1029 
1030 
1031 
1032 
1033 
1034 
1035 
1036 
1037 
1038 
1039 
1040 
1041 
1042 
1C43 
1044 



3 SI 1 
WAIT 



ozooo-y 



FETCH RESIDENT IMAGE 
WAIT OUT THE INTERRUPT 



* INITIALIZE ITEMS IN COMMA 



SRA 

STO I 
LDO 

STO 1 
LD .. 
STO I 
LD 

STO 1 
* 

* TRANSFER TO 

* TO COMPLETE 



CLEAR IOCS COUNTER 



16 

$1 OCT-Y 

CR910 

SCIBA-1-Y *FOR SAVING CORE ON THE CIB 

CR920+1 FETCH AREA CODE 

SACDE-Y RESET AREA CODE 

CR905 INITIALIZE WO ZERO TO BR TO 

0-Y *OUMP ENTRY POINT PLJS 1 

THE AUXILIARY SUPERVISOR 
INITIALIZATION 



3 SI 

DC 



40UMP-Y 
-1 



BR TO AJXILLIARY SUPERVISOR 
*FOR JOB PROCESSING 



BSS 

* CONSTANTS A 

* 

CR905 MDX X 

CR910 OC 

DC 
CR920 DC 

DC 

END 



19 PATCH AREA 

NO WORK AREAS 

*DUMP*l-l TO BE STORED IN LOCN ZERO 
1 WO CNT.SCTK ADDR OF CAUSE 

'HONG *HARML.ESS WRITE TO DISK 

SDBSY-SCH12 WD CNT ANO SCTR 
•RIAO *ADDR OF RESIDENT IMAGE 



PMN 10130 
PMM 10 140 
PMM 10150 
PMM 10160 
PMM 10170 
PMM 10180 
PMM 10190 
PMN 10200 
PMM 10210 
PMN 10220 
PMM 10230 
PMM 10240 
PMM 10250 
PMM 10260 
PMM 10270 
PMN 10280 
PMM 10290 
PMN 10300 
PMN10310 
PMM 10320 
PMN1O330 
PMM 10340 
PMM 10350 
PMM 10360 
PMM 10370 
PM.M 10380 
P.MM 10390 
PMM 10400 
PMM 10410 
PMM 10420 



SYMBOL VALUE RFL OEFN 



CR010 
CR905 
CR910 
CR920 
D7.000 
0Z"10 
DZ020 
0ZO30 
DZ06" 
0Z070 
D71"" 
DZ18" 
DZ1«5 
DZ190 
0Z210 
0Z215 
07.220 
0Z225 
DZ230 
07.235 
DZ24" 
0Z250 
0Z280 
0Z30O 
DZ330 
0Z34" 
0Z350 
BZ380 
DZ400 
0Z41" 
DZ9"C 
DZ°"1 
DZ902 
OZ904 
07. 9" 5 
0Z906 
0Z907 
0Z908 
0Z909 
DZ910 
0Z911 
0Z912 
DZ913 
07.914 
D7.915 



01E2 
02"0 
"20E 
^2 10 
0PF2 
OOF 7 
OOF 9 
OOFF 
0104 
01"6 
0108 
010E 
0116 
01 111 
0146 
014C 
014E 
0152 
0157 
0159 
015E 
016D 
OlfcE 
0178 
"170 
018C 
0197 
01A4 
"1AF 
"101 
0122 
0123 
"124 
0126 
0127 
0128 
0129 
"12A 
0123 
01 2C 
0120 
012E 
012F 
013" 
0131 



1004 
1039 
1040 
1"42 
0586 
0593 
0595 
0601 
0606 
0610 
0615 
0621 
0627 
0636 
0637 
0695 
0700 
0706 
0714 
0715 
0719 
0734 
0735 
0746 
0750 
0764 
0775 
07 JO 
08"9 
0811 
"645 
0646 
0647 
0649 
0650 
0651 
0652 
0653 
0654 
0655 
0656 
0657 
0658 
0659 
0660 



1008 1024 

"343 0603 3622 3683 0746 0890 0891 0941 0942 1009 1015 

0617 



0797 0823 "331 
0596 0591 
0610 



CROSS-REFERENCE 
REFERENCE* 



1011 
102 6 
1022 
1003 
0322 
0604 
0589 
063 9 
"626 
07<U 

05 95 
0594 
0804 
0696 
0811 
0767 
0770 
0773 
0605 

06 00 
0842 
0742 
"721 
"73 7 
0723 
0702 
0638 
0710 
0777 
0836 
0653 
0801 
0627 
0611 
082 8 
0731 
0757 
0795 
0754 
0623 
"762 
0634 
0747 
0695 
0635 



0727 0723 0729 3743 



0725 0802 
0787 



0717 0832 0839 
0790 0796 0819 



0818 



0706 0752 0764 0734 

0718 0763 0809 0313 0834 0840 
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SYMBOL 


VALUE 


REL 


DEFN 


REFER 


ENCES 




DZ916 


0132 





0661 


0812 






DZ970 


"134 





0663 


0758 






DZ92 5 


ni35 


o 


0664 


"753 






OZ930 


0136 


o 


0665 


073 9 






DZ935 


0137 





0666 


O7O0 






DZ94 


0133 





0667 


073 3 






0Z945 


ni?9 


n 


0668 


05 98 


0756 


0759 0329 


DZ95P 


f 13A 





0669 


0761 






0/955 


013B 





0670 


0748 






DZ960 


013C 


n 


"671 


0726 






DZ965 


0130 





1672 


0722 






0Z97P 


"13E 


n 


0673 


0724 






DZ975 


013F 





0674 


0760 


0827 




DZ98P 


0140 





0675 


0751 






D79«5 


0141 





0676 


0316 






DZ990 


0142 





06 77 


074 9 


0755 


0821 


07995 


0143 


p 


0678 


0788 






$ACOF 


P09F 





"428 


06 72 


0673 


1007 1025 


JACex 


0"1A 





0835 


0317 






$CCAO 


0^74 





0355 








SCH12 


0(06 





02 52 


1042 






CIBA 


0005 


r. 


251 


0309 


1004 


1023 


tCIDM 


010B 





0849 


1010 






$CILA 


"P5A 





0886 


0341 






SCLSW 


0018 





0883 








$COi>< 


or>07 


n 


0253 








$CJ«E 


Of'OE 





0265 








$CPTR 


0"7t 





0365 








$CTSW 


OOPF 





0266 








ICrfCT 


0^72 





03 53 








$CX«1 


nni7 





0882 


0318 






$CYL>< 


109A 





0418 


0671 


0673 


1014 


$DABL 


0011 





0268 


0333 






$DADft 


omo 





0267 








$DBSY 


OPfcE 





0530 


0344 


0587 


0602 0629 


$0CD6 


0077 


n 


0358 








$DCYL 


00A4 





0439 


0671 


1P05 




SOOSW 


POOD 





0521 


0624 


0765 




$D»<PF 


0019 





0884 


032 






$DRE3 


0C12 


n 


0269 








$DU<4P 


003F 





0314 


0319 


1032 


1039 


IDZ1N 


n07fc 





0357 








$EXIT 


0038 


O 


0300 








JFLSH 


0071 





0351 








$FPAD 


0095 





0409 








$HASH 


0014 





0271 


0880 


0881 


0882 0833 


$IBSY 


0013 





0270 








$I3T2 


00B9 





0887 








$IBT4 


0004 





0888 








SIOCT 


0032 





0291 


0315 


0331 


0689 0714 


$IREQ 


0P2C 





0285 


0505 






$1200 


00B3 





0465 


02 59 


0476 




$1205 


0OB8 





0471 


0887 






$1210 


OOBA 





0472 


0466 


0467 


0468 


$1290 


00C2 





0477 


0469 


0475 




$1*00 


00C4 





0497 


0261 


0516 




$1403 


OODO 





0507 


0504 






$1405 


0003 





0511 


0888 






$1410 


0005 





0512 


04 99 


0500 


0501 


$ 1490 


OOOE 





0522 


0498 


0515 




$1492 


OOEO 





0523 


0502 






$1494 


00E2 





0526 


05 08 






$<CS« 


00 7C 





0363 








$LAST 


0033 





0292 








$LEVO 


0008 





0257 








$LEVl 


0009 





0258 








$LEV2 


OOOA 





02 59 








$LEV3 


OOOB 





02 60 








*LEV4 


00 OC 





0261 








$LEV5 


OOOD 





02 62 








$LH< 


0039 





0304 


0334 






$LKNM 


0014 





0880 


0338 






$LSAD 


0075 





0356 








$^DUP 


0034 





0293 








$NXEQ 


0035 





0294 








$PAUS 


OOFO 





0890 








$PBSY 


0036 





0295 








$PGCT 


0037 





0296 








$PHSE 


0078 





0359 








$PRET 


0028 





0280 


02 82 


0701 




$PST1 


0081 





0371 


0373 






$PST2 


0085 





0377 


03 79 


0636 




$PST3 


0089 





0383 


03 85 






$PST4 


008D 





0389 


03 91 






$RMSW 


0016 





0881 


0330 






$RWCZ 


00F1 





0891 








$SCA^ 


0020 





0274 








$SNLT 


OOEF 





0889 








$ST3P 


0091 





0396 


02 62 


03 98 




$SYSC 


OOFO 





0524 









1321 



140 



SYMBOL VALUE REL DEFN 



REFERENCES 



$SOOO 


004D 





0329 


03 OC 


























$sioo 


004E 





0330 


0306 


0324 
























$S150 


0059 





0340 


0886 


























$$900 


003C 





0308 


0321 


032 3 
























$S910 


003E 





0310 


032 9 


























*tlFDR 


0070 





0364 




























$UFIJ 


0079 





0360 




























$ULET 


002D 





0286 




























$WRD1 


0P7B 


n 


0362 




























$HSDR 


007A 





0361 




























%IEH0 


01E0 





0853 


0580 


0582 
























$1132 


007F 





0366 




























$1403 


0C80 





0367 




























X2 


O0F2 





0683 


0636 


0747 


0748 


0749 


3751 


3752 


0753 


0754 


0755 


0756 


0757 


0758 


0759 0760 0761 










0762 


0763 


0764 


0765 


0734 


0788 


0789 


0790 


0791 


0795 


0796 


0797 


0801 0809 0812 










0813 


0816 


0818 


0319 


3821 


3823 


3827 


0828 


0829 


0831 


0832 


0834 


0839 0840 


Y 


00 7F 


D 


0944 


1002 


1005 


1006 


1007 


1009 


1013 


1014 


1015 


1021 


1023 


1025 


1027 


1032 


•BLCT 


0002 





0931 




























•COCV 


0093 





0869 




























•CIL1 


OOAO 





0875 


0848 


























•C1L2 


O0A1 





0876 




























■CLBO 


0078 





0861 




























•CM3N 


0001 





0906 




























•CO*Z 


0380 





0937 




























•CO<U 


04C0 





0938 




























•C012 


0600 





0939 




























•CORE 


00 1C 





0919 




























■CPTR 


OORE 





0864 




























•OCCH 


0001 





0896 




























•CKEP 


OOF 9 





0941 




























•0<IP 


O0F7 





0942 




























•DNID 


0098 





0874 




























•OREO 


0002 





0907 




























•DZIO 


0096 





0872 


0581 


























•0110 


0097 





0873 




























•FILE 


00r>3 





0908 




























• HOM G 


000 7 





0900 


1041 


























•HENO 


0010 





092-0 




























•HWCT 


OC04 





0909 




























• IDAO 


0000 





0895 




























• ILS4 


0011 





0917 




























• ISTV 


0033 





0935 




























• 1TVX 


00 OB 





0916 




























•<BCP 


0092 





0868 




























•<BCV 


0095 





0871 




























•LOAD 


0006 





0911 




























•LFEN 


0003 





0925 




























•LFHO 


00O5 





0924 




























•LFNM 


0000 





0930 




























•LSCT 


0OO5 





0910 




























•MC3R 


1000 





0943 




























"1X0R 


0005 





0936 




























•NEXT 


0Ci"*4 





0929 




























•OVSW 


001A 





0918 




























•PTCV 


0094 





0870 




























•RIAO 


0002 





0897 


1043 


























•RTBL 


0006 





0899 




























'SCTM 


0000 





0926 




























•SLET 


0CO3 





0898 




























•STRT 


0000 





0901 




























•SUP1 


006E 





0858 




























•SUP 3 


0070 





0859 




























•SUP* 


0071 





0860 




























• TCNT 


OOll 





0940 


0601 


























•TVWC 


0003 





0913 




























•UAFX 


0001 





092 7 




























•»(CNT 


0009 


o 


0914 




























•WDSA 


0003 





0928 




























•XCTL 


0007 





0912 




























■XEOA 


0000 





0905 




























•XR3X 


OOOA 





0915 




























• 1132 


0080 





0863 




























•113* 


0091 





0867 




























• 1403 


008C 





0862 




























• 1442 


0090 





0866 




























•2501 


008F 





0865 
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APPENDIX I. SYSTEM LOCATION EQUIVALENCE TABLE (SLET) 



The addresses listed on the SLET printout are subject 
to change. Only the symbols and phase IDs will remain 
constant. 



// OUP 

// XEC DSLET L 

R 41 75F2 (HEX) WDS UNUSED BY CORE LOAD 

CALL TRANSFER VECTOR 

FSYSU 09DD 

FSLEN 0825 
SYSTEM SUBROUTINES 

ILS04 00C4 

S*LSG2 00B3 

020A (HEX) IS THE EXECUTION ADOR 



SYSTEM LOCATION EQUIVALENCE TABLE ZSLETa 



SYMBOL 


PH 


CORE 


WORD 


SCTR 


SYMBOL 


PH 


CORE 


WORD 


SCTR 


SYMBOL 


PH 


CORE 


WORD 


SCTR 


SYMBOL 


PH 


core 


WORD 


scr* 




ID 


ADDR 


COUNT 


ADDR 


• •••• 


ID 

• • 


ApOR 
• ••• 


COUNT 

• ••• 


ADDR 

•••• 




ID 


ADDR 


COUNT 


ADDR 




ID 


ADDR 


COJMT 


ADDR 


30DUP 


01 


7C50 


0327 


0008 


30CTL 


02 


I IDE 


05A3 


OOOB 


3ST0R 


03 


210E 


056B 


0010 


3FILQ 


04 


01DE 


03C0 


0015 


aouMP 


05 


410E 


0461 


0018 


30L/F 


06 


01DE 


03C0 


001C 


30LTE 


07 


010E 


05A3 


001F 


3DFNE 


08 


01 DE 


05A3 


0024 


3EXIT 


09 


01DE 


0500 


0029 


3CFCE 


OA 


7A06 


OODB 


0020 


SOU 11 


OB 


7A06 


0035 


002E 


3DU12 


OC 


7A06 


00D1 


00 2 F 


30U13 


■OD 


7782 


087C 


0030 


3DU14 


OE 


7A06 


0248 


0037 


3DU15 


OF 


7A06 


0248 


0039 


SDU16 


10 


7A06 


024B 


303B 


3PRCL 


11 


01DE 


0280 


003D 


3DU18 


12 


0E6E 


0140 


003F 


SFR01 


IF 


766E 


098F 


0040 


3FR02 


20 


7A34 


0503 


004B 


SFR03 


21 


7A34 


0280 


004C 


3FR04 


22 


7A34 


03 CO 


004E 


3FR05 


23 


7A34 


0500 


0051 


3FR06 


24 


7A34 


03C0 


0055 


3FR07 


25 


7A34 


0280 


0058 


3FR08 


26 


7A34 


0500 


005A 


3FR09 


27 


7A34 


03F0 


005E 


3FR13 


2B 


7A34 


33C3 


0362 


3FR1I 


29 


7A34 


03CO 


0065 


3FR12 


2A 


7A34 


03C0 


0068 


3FR13 


28 


7A34 


03CO 


006B 


3FR14 


2C 


7A34 


0500 


006E 


3FR15 


20 


7A34 


0500 


0072 


3FR16 


2E 


7A34 


0500 


0076 


SFR17 


2F 


7A34 


0500 


007A 


3FR18 


30 


7A34 


0503 


337E 


3FR19 


31 


7A34 


0404 


0082 


3FR20 


32 


7A34 


03CO 


0086 


3FR21 


33 


7A34 


03C0 


0089 


3FR22 


34 


7A34 


3283 


OOBC 


3FR23 


35 


7A34 


03C0 


008E 


3FR24 


36 


7A34 


03C0 


0091 


3FR25 


37 


7A34 


0500 


0094 


3FR26 


38 


7BBE 


03C0 


0098 


3FR27 


39 


766E 


013F 


009B 


aASOO 


51 


01E0 


021E 


009C 


3ACNV 


52 


01E8 


OOBB 


009E 


3AS10 


53 


01EB 


3367 


009F 


3AS11 


54 


01E8 


0050 


OOAO 


3AS12 


55 


026A 


0185 


00A1 


3AERM 


56 


0AC4 


00C1 


00A3 


SAS01 


57 


026A 


019A 


00A4 


3AS1A 


56 


026A 


00B5 


00A6 


3ASYM 


59 


0000 


0130 


O0A7 


3AS03 


5A 


076E 


oie: 


00A8 


3AS04 


5B 


02&A 


31AF 


OOAA 


3AS02 


5C 


026A 


015B 


OOAC 


3AS2A 


5D 


026C 


00 A6 


OOAE 


SAS09 


5E 


0408 


05ED 


OOAF 


3AS05 


5F 


02&A 


017C 


00B4- 


3AS06 


60 


026A 


0196 


00B6 


3AS07 


61 


026A 


0166 


O0B8 


SAS7A 


62 


026C 


0127 


OOBA 


3AS08 


63 


026A 


0191 


OOBB 


3AS8A 


64 


02 6 A 


0199 


OOBO 


3APCV 


65 


026A 


0097 


OOBF 


SAINT 


66 


094E 


0057 


OOCO 


3ASAA 


67 


094E 


005E 


33C1 


3SUP1 


6E 


051A 


0A80 


0OC2 


3SUP2 


6F 


07FE 


0734 


OOCB 


3SUP3 


70 


0506 


04F9 


00D1 


3SUP4 


71 


01DE 


0167 


00D5 


3CLB1 


78 


01E0 


0555 


0007 


3CLB2 


79 


0542 


0498 


OOOC 


3CLB3 


7A 


0802 


01E4 


OOEO 


3CLB4 


7B 


0832 


01BA 


00E2 


3CLB5 


7C 


0802 


0164 


00E4 


3CLB6 


70 


0802 


01CF 


O0E6 


3CLB7 


7E 


09E8 


013A 


00E8 


aCLBB 


7F 


09E8 


D12B 


00E9 


3CLB9 


80 


09E8 


0131 


OOEA 


3CLBA 


81 


09E8 


OOEA 


OOEB 


3CLBB 


82 


0B2A 


013A 


OOEC 


3CLBC 


83 


0832 


0141 


OOED 


31403 


8C 


0000 


0131 


OOEF 


31132 


8D 


0000 


0126 


OOFO 


3CPTR 


8E 


0000 


011B 


00F1 


32531 


8F 


0000 


339C 


B3F2 


31442 


90 


0000 


OOAO 


00F3 


31134 


91 


0000 


016C 


O0F4 


3KBCP 


92 


OOOO 


0174 


OOF 6 


3CDCV 


93 


0000 


OOBB 


OOFS 


3PTCV 


94 


0000 


0003 


00F9 


3KBCV 


95 


0000 


0003 


OOFA 


30ZID 


96 


OOFO 


OOEC 


OOFB 


30110 


97 


OOFO 


01A2 


33FC 


SON ID 


98 


OOFO 


0280 


OOFE 


3PPRT 


99 


0000 


0131 


OOEF 


3PIWK 


9A 


0000 


OOAO 


00F3 


3PIXK 


9B 


0033 


33A0 


00F3 


3PCWK 


9C 


0000 


OOBB 


0OF8 


3PCXK 


90 


0000 


OOBB 


O0F8 


3CIL1 


AO 


0000 


0170 


0101 


3CIL2 


Al 


0000 


01C6 


0103 
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APPENDIX J. MONITOR SYSTEM SAMPLE PROGRAMS 



Two sample programs are provided with the Monitor 
system. One is a FORTRAN compilation, the other is 
an assembly. Both programs are loaded and processed 
as Monitor jobs. Both programs are listed on the 
principal printer, which in FORTRAN is specified on 
the IOCS card. The answer to the FORTRAN problem 
is printed on the principal printer. The answer to the 
Assembler problem is printed on the Console Printer. 

FORTRAN SAMPLE PROGRAM 

The FORTRAN sample program is listed below as it 
runs on a 4K and 8K system (the LIST ALL card is 
removed for the 8K run). This program reads data 
cards supplied with the program and builds three files 
on disk, one in the User Area and two in Working Stor- 
age. The core and file maps for the program are 
described in the Programming Tips and Techniques 
section of this manual. 

The FORTRAN card sample program as supplied 
uses a 1442-6, or -7, an 1132 Printer and disk. The 
paper tape sample program uses an 1134 Paper Tape 
Reader, a Console Printer, and disk. If your system 
does not have the required configuration, it will be 
necessary to make changes to the program. These 
changes are listed below. 



Card CHK13030 

• If printed output is on a 1403 Printer, change the IOCS 
entry from 1132 PRINTER to 1403 PRINTER. 

• If printed output is on the Console Printer, change the 
IOCS entry from 1132 PRINTER to TYPEWRITER. 

Card CHK13040 

• If card input is from a 2501 Reader, change the IOCS 
entry from CARD to 2501 READER. 

Card CHK13180 

• If card input is from a 2501 Reader, change M = 2 
to M = 8. 



Card CHK13190 

• If printer output is on a 1403 Printer, change L = 3 
to L = 5. 

• If printed output is on a Console Printer, change 
L = 3 to L = 1. 
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FORTRAN Sample Program Run on 4K 



// JOB 



LOG DRIVE 
0000 



// OOP 



09/27/67 



CART SPEC 
000F 



CART AVAIL 
OOOF 



PHY DRIVE 
0000 



•STOREDATA WS UA PILEA 2 

CART 10 OOOF OB ADDR 1AE0 OB CNT 0020 

// * IBM 1190 FORTRAN SAMPLE PROGRAM 

// FOR 

•ONE WORD INTEGERS 

•I0CS<DISK*U32 PRINTER) 

•IOCS(CARD) 

•LIST ACL 

C IBM 1190 FORTRAN SAMPLE PROGRAM 

C SIMULTANEOUS EQUATION PROGRAM 

C 

INTEGER V1»V2»VS 

DIMENSION A(10*10>,X(10)»B(140) 

DEFINE FILE lOKl.lOO.U.Vl) *102(l*lO»U»V2> .103 < 1.100 »U.V3) 

301 FORMAT < 1H1 .20X15HINCOMPATIBILITY) 

302 FORMAT ( lH 20X41HMORE EQUATIONS THAN UNKNOWNS-NO SOLUTIONS) 

303 FORMAT (1H 20X46HMORF UNKNOWNS THAN EQUATIONS-SEVERAL SOLUTIONS) 

304 FORMAT (lH 20X15HSOLUTION MATRIX) 

305 FORMAT (1H 20XSHMATRIX A) 
30* FORMAT ( lH 20X8HMATRIX B> 
SOT FORMAT ( 1M 20X10H A-INVERSE) 

908 FORMAT (1H 20X24HD I AGONAL ELEMENT IS ZERO) 
M»2 
L»S 

READ IMtlO) 
10 F0RMAT<80H SPACE FOR TITLE 

1 > 

WRITE (LtlO) 
12 FORMAT (6U0.20X) 

READ (M*12) Ml.M2.Ll.L2.Nl.N2 



C 










c 




Ml » NO. OF ROWS OF 


A 




c 




M2 ■ NO* OF COLS OF 


A 




c 




LI • NO* OF ROWS OF 


X 




c 




L2 ■ NO. OF COLS OF 


X 




c 




Nl ■ NO. OF ROWS OF 


B 




c 
c 




N2 a NO* OF COLS OF 


B 




13 


FORMAT (7F10.4.10XI 








17 


FORMAT (10F10.4) 
IF (N2-l)63*64.63 








64 


IF (L2-D 63*63*63 








63 


IF (Ll-M2)63*66.63 








66 


IF (M1-ND63. 11.63 








63 


WRITE (L.301) 
GO TO 2 








11 


N«M1 
N*M2 
IF IM1-M2) 91*14*93 








♦1 


WRITE (L.302) 
00 TO 2 








93 


WRITE (L*303) 
GO TO 2 








14 


WRITE (L»30S) 
00 70 I»i.N 










READ (M*13) (A(I*J) 


• 


J»1»NI 






WRITE (L.17) (A(I»J1 


» 


J»1*N) 






WRITE <101«l)tA(!.J) 


* 


J-i.N) 




70 


CONTINUE 








S9 


FORMAT <F10. 4,70X1 
WRITE (L. 306) 










READ (M.89) (BU)» 


I-l.N) 






WRITE (L*89) (B(I)» 


I* 


•1*N) 


c 
c 
c 




WRITE (102 , 1XB(I). 


I-l.N) 




INVERSION QF A 








00 120 K«1»N 










D»A(K»K) 










IF(D)40*200*40 








40 


A{K»K)«1.0 
DO 60 J"1*N 








SO 


A<K.J)»AIK.J)/D 
IF(K-N)80*13O»130 








80 


IK»K+1 

DO 120 I-IK.N 

0»A<I*K) 

A(t*K>-0.0 







CHK 12970 



CHK12980 
CHK12990 

CMK 13000 

CHK13010 
CHK 13020 
CHK13030 
CHK13O40 
CHK13060 
CHK 13070 
CHK 13080 
CHK130S4 
CHK13086 
CHK13090 
CHK13093 
CHK13100 
CHK13110 
CHK13120 
CHK13130 
CHK13146 
CHK13130 
CHK13160 
CHK13170 
CHK13180 
CHK13190 
CHK 13 200 
CHK 132 10 
CHK13220 
CHK13230 
CHK 13 240 
CHK13230 
CHK13253 
CHK13260 
CHK13270 
CHK13280 
CHK13290 
CHK13300 
CHK^33>0 
CHK13313 
CHK13320 
CHK 13 330 
CHK 13340 
CHK13350 
CHK13360 
CHK 13370 
CHK13380 
CHK 13390 
CHK 19400 
CHK13410 
CHK 13420 
CHK13430 
CHK13440 
CHK 13430 
CHK 13460 
CHK 13470 
CHK 13480 
CHK13490 
CHK13300 
CHK13505 
CHK13510 
CHK13320 
CHK13530 
CHK13540 
CHK135S0 
CHK13554 
CHK13336 
CHK 13360 
CHK13565 
CHK13370 
CHK13580 
CHK13S90 
CHK 13 600 
CHK13610 
CHK 13620 
CHK13630 
CHK13640 
CHK13690 
CHK 13660 
CHK 13670 
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00 120 J-l.N 
120 A(I»J)-A(I.J)-(D*A(K.J)) 



BACK SOLUTION 



130 IK-N-1 

DO 180 K-l.IK 

1 1-K+l 

DO 180 I-I1.N 

D-A(K.I) 

A(K.I)-0.0 

DO 180 J»ltN 
180 A(K»J)»A(K.J)-(D*A(I.J>) 

GO TO 202 

200 WRITE (L.308I 
SO TO 2 

202 WRITE (L* 307) 
DO 201 I-1»N 
WRITE <L»17> 
WRITE (IOS'1) 

201 CONTINUE 

00 21 I-l.N 
X(t>-0*0 
DO 21 K-l.N 
21 X(I)-X(I)+A(I.K)«B(K) 
WRITE (L.304) 

WRITE (L.89) (X(I). I-l.N) 
2 CALL EXIT 
END 
VARIABLE ALLOCATIONS 
A(R )*OODC-0016 
V3CI )»020E 
L2(I >-02l4 
K(I )-021A 



(Ml. J). J-l.N) 
(A(I.J). J-l.N) 



X(R l-OOFO-OODE 

M(I >-020F 
NKI )-0215 
IK(I >-021B 



BIR )-0208-00F2 

LCI )>0210 
N2(I )-0216 
11(1 >-021C 



CHK13680 
CHK13690 
CHK13695 
CHK13700 
CHK13703 
CHK13710 
CHK13720 
CHK13730 
CHK13740 
CHK13750 
CHK13760 
CHK13770 
CHK13780 
CHK13790 
CHIC 13800 
CHK13810 
CHK13820 
CHK13830 
CHK13840 
CMK13845 
CHK13830 
CHK13860 
CHK13870 
CHK13880 
CHK13890 
CHK13900 
CHK13910 
CHK 139*0 
CHK 13950 



D(R )>020A 

Mid )-0211 

N(l J-0217 



VI (I I-020C 

M2(I >-0212 

1(1 )-0218 



V2(I I-020D 

LKl )»0213 

Jtl )-0219 



STATEMENT ALLOCATIONS 

301 «022A 302 "0237 303 -0251 304 "026D 303 -027A 306 "0283 307 -028C 308 -0296 10 -02A7 12 -09D1 

13 -0205 17 -02D9 89 -02DC 64 -031C 65 -0322 66 -0328 63 -032E 11 -0334 91 -0344 93 -004A 

14 -0350 70 -03A2 40 -0407 60 -0416 80 -0432 120 -0431 130 -0484 180 -04AD 200 -04E2 202 -0-E8 
201 -0522 21 -053C 2 -0588 



FEATURES SUPPORTED 
ONE WORD INTEGERS 
IOCS 

CALLED SUBPROGRAMS 
FADOX FMPYX FdIV 
SIOI SUBSC SDP10 



FLO 
SDWRT 



FLDX 
SDCOM 



FSTO 
SOFX 



FSTOX FSBRX CARDZ PRNTZ SRED 



SwRT 



SCOMP SFIO 



SIOlx 



REAL CONSTANTS 
, 100000 E 01-0220 



.OOOOOOE 00-0222 



INTEGER CONSTANTS 

2-0224 3-0225 1-0226 101-0227 102-0228 103-0229 



CORE REQUIREMENTS FOR 
COMMON VARIABLES 



END OF COMPILATION 



3*4 PROGRAM 



874 



// XEQ L 2 

•LOCAL.FLOAT.PARC.IFIX 
♦FILESU03.FILEA) 
FILES ALLOCATION 

103 01AE 0001 OOOF FILEA 

101 0000 0001 OOOF 01B0 

102 0001 0O01 OOOF 01B0 
STORAGE ALLOCATION 
R 40 03A6 (HEX) ADDITIONAL CORE REOUIRD 

ARITH/FUNC SOCAL WD CNT 
FI/O. I/O SOCAL WD CNT 
DISK FI/O SOCAL WD CNT 
WDS UNUSED BY CORE LOAD 



CHK13960 
CHK13963 
CHK 1396 5 



R 43 

R 44 
R 45 

R 41 



(HEX) 
(HEX) 
(HEX) 
(HEX) 



0124 

06AC 

02A2 

0004 

LIBF TRANSFER VECTOR 
EBCTB 0F53 SOCAL 2 
HOLTB OF 17 SOCAL 2 
GETAD 0ED4 SOCAL 2 
XMDS 09B2 SOCAL 1 
HOLEZ 0E9E SOCAL 2 
NORM 07DC 
FADOX 093D SOCAL 1 
FSBRX 0934 SOCAL 1 
FMPYX 0900 SOCAL 1 
FDIV 08 AE SOCAL 1 
FSTOX 0788 
FLDX 07A4 
SDCOM 0920 SOCAL 3 
SOFX 08E6 SOCAL 3 
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SDWRT 0954 SOCAL 3 

SIOFX OMA SOCAL 2 

SUBSC 07BE 

SIOI 099E SOCAL 2 

SCOMP 0982 SOCAL 2 

SWRT 09AB SOCAL 2 

SUED 0880 SOCAL 2 

FSTO 078C 

FLO 07A8 

PRNTZ OOEO SOCAL 2 

CAR02 0D36 SOCAL 2 

SFIO 09A0 SOCAL 2 

SOFIO 0999 SOCAL 3 

IFIX 087C LOCAL 

FARC 087C LOCAL 

FLOAT 087C LOCAL 

SYSTEM SUBROUTINES 

ILS04 0OC4 

ILS02 00B3 

ILS01 0F5A 

ILSOO 0F73 

FLIPR 0816 

0*00 (HEX) JS THE EXECUTION AOOR 

IBM 1130 FORTRAN SAMPLE PROGRAM CHK1S97 

MATRIX A 
4.2190 -1.2120 1*1050 
-2.1200 3*5050 -1*6320 
1.1220 -1.3130 3*9860 

MATRIX B 
3.2160 
1.2470 
2.3456 

A-INVERSE 
0.2913 0.0833 -0*0467 
0.1631 0.3836 0*1118 
-0.0283 0.1029 0*3008 



0.9321 
1.2654 
0.7429 



SOLUTION MATRIX 



FORTRAN Sample Program Run on 8K 



// JOB 09/27/67 CHK12970 

LOG DRIVE CART SPEC CART AVAIL PHY DRIVE 
0000 OOOF OOOF 0000 

// • IBM 1130 FORTRAN SAMPLE PROGRAM CHIC 13000 

ft F 0R CHK13010 

•ONE WORD INTEGERS CHK13020 

•10CS<DISK.1132 PRINTER) CHK13030 

♦I0CSICARD) CHK13040 

FEATURES SUPPORTED 
ONE WORD INTEGERS 
IOCS 

CORE REQUIREMENTS FOR 
COMMON VARIABLES 544 PROGRAM 874 

END OF COMPILATION 

// XEQ L 1 CHK 13960 

•FILESU03.FILEA) CHK13963 

FILES ALLOCATION 

103 01AE 0001 OOOF FILEA 

101 0000 0001 OOOF 0180 

102 0001 0001 OOOF 0180 
STORAGE ALLOCATION 

R 41 0C9C (HEX) WDS UNUSED BY CORE LOAD 
LIBF TRANSFER VECTOR 

EBCTB 12CD 

HOLTS 1291 

GETAD 124E 

NORM 1224 

XMDS 1208 

FARC 11E6 

HOLEZ 11 BO 

FLOAT 11A6 

IFIX H7A 

FADDX 1123 

FSBRX 10FC 
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FMPYX 


IOCS 


FOIV 


1076 


FSTOX 


101E 


FLDX 


103A 


SOCOM 


07FE 


SOFX 


07C4 


SOWRT 


0832 


SIOFX 


OB1A 


SUBSC 


1054 


SIO! 


081E 


SCOMP 


OB02 


SWRT 


0A2B 


SRED 


0A30 


FSTO 


1022 


FLO 


103E 


PRNTZ 


0F60 


CAROZ 


0EB6 


SFIO 


0B20 


SDFIO 


OB 37 



SYSTEM SUBROUTINES 
ILS04 00C4 
ILS02 OOB3 
ILS01 1202 
ILSOO 12ED 

0400 (HEX I IS THE EXECUTION ADOR 



IBM 1130 FORTRAN 

MATRIX A 
4.2130 -1.2120 
-2.1200 3.3050 
1.1220 -1.3130 



SAMPLE PROGRAM 



CHK1397 



1.1050 
-1.6320 
3.9860 
MATRIX B 



3.2160 
1.2470 
2.3456 

0.2915 

0.1631 

-0.0283 

0.9321 
1.2654 

0.7429 



0.0833 
0.3836 
0.1029 



A-INVERSE 

-0.0467 

0.1118 

0.3008 

SOLUTION MATRIX 



ASSEMBLER SAMPLE PROGRAM 

The core map for the Assembler sample program is 
described in the Programming Tips and Techniques 
section of this manual. 



Output on Principal Printer 
// JOB 



LOG DRIVE 
0000 



CART SPEC 
2027 



CART AVAIL 
2027 



PHY DRIVE 
0002 



// ASM 

*LIST 

♦PRINT SYMBOL TABLE 



SMASN001 



SHASMO02 
SHASM003 
SHASM004 



COMPUTE THE SQUARE ROOT OF 64 
*************************************************** 



THIS PROGRAM COMPUTES THE SQUARE ROOT OF 64 
*AND PRINTS THE RESULT ON THE CONSOLE PRINTER. 



*************************************************** 



0000 





CO 30 


BEGIN 


LD 


0001 


20 


064D6063 




LIBF 


0002 


30 


06898640 




CALL 


0004 


20 


091899C0 




LIBF 


0005 





1008 


* 


SLA 


0006 





E829 


* 


OR 


0007 





001B 




STO 



INPUT TO THE SQUARE ROOT 
INTEGER TO FLOATING PT. 
FLOATING PT. SQRT. 
FLOATING PT. TO INTEGER 



064 

FLOAT 

FSQR 

IFIX 

8 

MASK TO BUILD EBCDIC INTEGER 

RESULT ANO EBCDIC BLANK IN WORD1. 

MASK 

WOROl CONVERSION INPUT AREA 

CONVERT MESSAGE FROM EBCDIC 

TO ROTATE /TILT CODE. 



SMASM006 
SMASM0O7 
SMASM008 
SMASM009 
SMASM010 
SMASM011 
SMASM012 
SMASM013 
SMASM014 
SMASM015 
SMASM016 
SMASM017 
SMASM018 
SMASM019 
SMASM020 
SMASM021 
SMASM022 
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0008 


20 


05097663 




LIBF 


EBPRT 


CALL CONVERSION SUBROUTINE 


SMASM023 


0009 





0000 




DC 





CONTROL PARAMETER 


SMASM024 


000A 


1 


0023 




DC 


W0RD1 


INPUT AREA 


SMASM025 


OOOB 


1 


0015 




DC 


TYPE+1 


OUTPUT AREA 


SMASM026 


OOOC 





001A 




DC 


26 


CHARACTER COUNT 


SMASM027 


OOOD 


20 


23A17170 




LIBF 


TYPEO 


TYPE MESSAGE 


SMASM028 


OOOE 





2000 




DC 


/2O00 


CONTROL PARAMETER 


SMASM029 


OOOF 


1 


0014 




DC 


TYPE 


I/O AREA 


SMASM030 


0010 


20 


23A17170 


BUSY 


LIBF 


TYPEO 


WAIT FOR TYPING COMPLETE 


SMASM031 


0011 





0000 




DC 






SMASM032 


0012 





70FD 




HDX 


BUSY 


BR TO WAIT FOR COMPLETION 


SMASM033 


0013 





6038 




EXIT 




RETURN TO MONITOR CONTROL 


SMASM034 


0014 





OOOE 


TYPE 


DC 


14 


I/O AREA WORD COUNT 


SMASM035 


0015 




OOOD 




BSS 


13 


RESERVE AS PRINT BUFFER 


SMASM036 


0022 





8181 




DC 


/8181 


TWO CARRIAGE RETURNS 


SMASM037 


0023 





0000 


W0RD1 


DC 


*-* 


CONVERSION INPUT AREA 


SMASM038 


0024 




0018 




EBC 


.IS THE 


SQUARE ROOT OF 64. 


SMASM039 


0030 





F040 


MASK 


DC 


/F040 


EBCDIC INTEGER MASK 


SMASM040 


0031 





0040 


D64 


DC 


64 


CONSTANT FOR SQUARE ROOT 


SMASM041 


0032 




0000 




END 


BEGIN 




SMASM042 



♦SYMBOL TABLE* 



BEGIN 0000 
W0R01 0023 



BUSY 0010 



MASK 0030 



TYPE 0014 



000 OVERFLOW SECTORS SPECIFIED 
000 OVERFLOW SECTORS REQUIRED 
006 SYMBOLS DEFINED 
NO ERRORIS) FLAGGED IN ABOVE ASSEMBLY 



// XEQ 


L 


R 41 7904 (HEX) WDS UNUSED BY CORE LOAD 


CALL TRANSFER VECTOR 


FSQR 


0248 


LIBF TRANSFER VECTOR 


FARC 


069E 


XMOS 


0682 


HOLL 


0632 


PRTY 


05E2 


EBPA 


0592 


FADD 


04EI 


FDIV 


0540 


FLD 


048C 


FADDX 


04E7 


FMPYX 


04A2 


FSTO 


0470 


FGETP 


0456 


NORM 


042C 


TYPEO 


0312 


EBPRT 


02AC 


IFIX 


0280 


FLOAT 


0230 


SYSTEM 


SUBROUTINES 


ILS04 


0OC4 


ILS02 


0OB3 


01FE (HEX) IS THE EXECUTION ADDR 



SMASM043 



Output on Console Printer 



8 IS THE SQUARE ROOT OF 64 
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APPENDIX K. BASIC DIFFERENCES BETWEEN 1130 DISK MONITOR SYSTEM, VERSIONS 1 AND 2 



Many of the differences between Monitor 1 and Monitor 2 
are listed below. 

• Lowest allowable origin with: 

Version 1 Version 2 



Dec. Hex. Dec. Hex. 



DISKZ 


450 


/01C2 


510 


/01FE 


DISKO 


610 


/0262 


690 


/02B2 


DISK1 


880 


/0370 


690 


/02B2 


DISKN 


1080 


/0438 


960 


/03C0 



NOTE: All version 2 disk subroutines provide multiple 
disk support and accommodate word counts exceeding 
320. There is no DISKO subroutine in version 2; a LIBF 
to DISKO is interpreted as a LIBF to DISK1. 



• The entire Resident Monitor, with the exception of 
$LINK, $EXIT, $IOCT, $PRET, and $IREQ, has been 
relocated. Certain parameters that were formerly 
in COMMA in Version 1 are in DCOM in Version 2. 



• The Core Image header for Disk Core Image format 
(DCI) has been revised and relocated. 



• The *FILE Assembler Control Record has been 
replaced by the pseudo-operation FILE. *FILE 
(not to be confused with the Supervisor Control 
Record *FILES) is not recognized in Version 2. 



Version 2 does not allow an initial ORG to an odd 
location in mainlines that require DISKZ. An ORG 
to an even location followed by a BSS or BES of an 
odd number of words is equivalent to an ORG to an 
odd location. 



On a DUP DUMP using the 1442-6 or -7, blank 
cards following the punched cards are not 
selected to stacker 2. 



• Version 2 may require more core than Version 1, 
especially FORTRAN core loads. 

• Defective cylinders are taken into account in the 
Version 2 incremental seek and write immediate 
functions. In other words, it is not possible to 
seek to or write immediate on a defective 
cylinder. 

• The object code produced by the FORTRAN compiler 
is slightly longer in Version 2 than Version 1. 

• The calling sequence for DISKZ in Version 2 is 
different from Version 1. 

» The LIST DECK, LIST DECK E, and PUNCH 
SYMBOL TABLE Assembler Options are not 
allowed with 1134 input. 

• ILS02 and ILS04 are part of the Resident Monitor. 
(The user may write his own and store them in the 
User Area for use with user programs. ) 



• Version 2 requires that all cartridges have a 
4-character ID. 



There are certain diagnostics in Version 2 that 
are not in Version 1. Thus, some conditions are 
detected as errors in Version 2 that are not in 
Version 1. 



The Version 2 System Loader does not bypass the 
loading of ISSs for devices not defined on the REQ 
records. Such subroutines may, however, be 
deleted if desirable. 



Disk organization is different in the two versions. 

Version 2 requires 14 sectors more disk storage 
than Version 1, i. e. , the address of Working 
Storage in Version 2 is 14 greater than in Version 1. 
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GLOSSARY 



Absolute Address. An address that either should not 
be incremented or has already been incremented by 
a relocation factor. 



Absolute Program. A program which, although stored 
in disk system format, has been written in such a way 
that it can be executed from only one core location. 

Assembler Core Load. A core load that was built from 
a mainline written in Assembler language. 

CALL Subprogram. A subprogram that must be refer- 
enced with a CALL statement. The type codes for sub- 
routines in this category are 4 and 6. 

CALL TV. The transfer vector through which CALL 
subroutines are entered during execution. See the 
section on the Core Load Builder for a description of 
this transfer vector. 

Card Core Image Format (abbr. CDC). The format 
in which a program stored in disk core image format 
is dumped to cards. 



Card Data Format (abbr. CDD). 
a data file is dumped to cards. 



The format in which 



Card System Format (abbr. CDS). The format in which 
absolute and relocatable programs are punched into 
cards. In this format, columns 73-80 are used only 
to contain the card ID and sequence number. 

CDC. (See Card Core Image Format. ) 

CDD. (See Card Data Format. ) 

CDS. (See Card System Format. ) 

Checksum. The two's complement of the logical sum 
of the record count (the position of the record within 
the program) and the data word(s). The logical sum 
is obtained by summing the data word(s) and the 
record number arithmetically, with the addition of 
one each time a carry occurs out of the high -order 
position of the Accumulator. The first record is 
record 1, not record 0. 

This term (record number) should not be confused 
with the sequence number that appears in columns 73-80 
in card formats. 
CIB. (See Core Image Buffer. ) 



Cold Start Card. The card that contains the coding 
necessary for initial program loading (IPL), that is, 
fetching the Cord Start Program. 

Cold Start Program. The disk-resident program that 
initializes the Monitor system by reading the Resident 
Monitor into core from the disk. 

COMMA. (See Core Communications Area. ) 

Comment. The text contained on a Monitor control 
record with an asterisk in column 4, an Assembler 
language source record with an asterisk in column 21, 
or a FORTRAN source record with a C in column 1. 

Control Record. One of the records (card or paper 
tape) that direct the activities of the Monitor system. 
For example, the DUP Monitor control record directs 
the Monitor to initialize DUP, the DUMPLET DUP 
control record directs DUP to initialize the DUMPLET 
program; the EXTENDED PRECISION FORTRAN con- 
trol record directs the Compiler to allot three words 
instead of two for the storage of variables. 

Core Communications Area (abbr. COMMA). The part 
of core which is reserved for work areas and parameters 
that are required by the Monitor programs. In general 
a parameter is found in COMMA if it is required by two 
or more Monitor programs and is required to load a 
program stored in disk core image format. Otherwise 
the parameter is found in DCOM. COMMA is initialized 
by the Supervisor during the processing of a JOB 
record. 

Core Image Buffer (abbr. CIB). The buffer on which 
most of the first 4K of core are saved while a core load 
is being built. It is also used to save any part of COM- 
MON defined below location 4096 during a link-to-link 
transfer of control. See the section on the Core Load 
Builder for a description of the CIB and its use. 

Core Image Header Record. A part of a core image 
program including such parameters as the word count 
of the core load, the ITV, and the setting for index 
register 3. 

Core Image Program. A mainline that has been con- 
verted, along with all of its required subroutines, to 
disk core image format. Included in the core image 
program are any LOCALS and/or SOCALs that are 
required. This term should not be confused with "core 
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load", which refers to only that part of a core image 
program that is read into core just prior to execution. 

Core Load. A mainline, its required subroutines, and 
its interrupt, CALL, and LIBF transfer vectors. This 
term should not be confused with "core image program". 

CSF Block. A group of not more than 51 data words of 
a program in card system format. In this format, the 
first six data words of every CSF block are indicator 
words. These six words are always present, even 
though all six are not needed. A CSF block is equivalent 
to words 4-54 of the CSF module (Data card) of which 
it is a part. 

CSF Module. A group of words consisting of a data 
header and CSF blocks for a program in card system 
format. A CSF module is equivalent to a Data card 
in card system format. A new CSF module is created 
for every data break. A data break occurs (1) whenever 
there is an ORG, BSS, BES, or DSA statement, (2) when- 
ever a new Data card is required to store the words 
comprising a program, and (3) at the end of the program. 

Data Break. (See DSF Module.) 

Data File. An area in either the User Area or the 
Fixed Area in which data is stored. "Data file" may 
also refer to the data itself. 

Data Header. The first pair of words in a module for 
a program in disk system format. The first word con- 
tains the loading address of the module; the second the 
total number of words contained in the module. The 
data header for the last module contains the effective 
program length, followed by a word count of zero. 

PCI. (See Disk Core Image Format. ) 

DCQM. (See Disk Communications Area. ) 

DDF. (See Disk Data Format. ) 

DEFINE FILE Table. The table which appears at the 
beginning of every mainline that refers to defined files. 
There is one 7 -word entry for each file that has been 
defined. 

Disk Block. One sixteenth of a disk sector, that is, 20 
disk words. The disk block is the smallest distinguish- 
able increment for programs stored in disk system for- 
mat. Thus, the Monitor system permits packing of 
disk system format programs at smaller intervals than 
the hardware would otherwise allow. 



Disk Communications Area (abbr. DCQM). The disk 
sector that contains the work areas and parameters 
for the Monitor programs. 

Disk Core Image Format (abbr. PCI). The format in 
which core image programs are stored on the disk 
prior to execution. 

Disk Data Format (abbr. DDF). The format in which s 
data file is stored in either the User Area or the Fixed 
Area. 

Disk System Format (abbr. DSF). The format in which 
mainlines and subprograms are stored on the disk as 
separate entities. It is not possible to execute a pro- 
gram in disk system format; it must first be converted 
to disk core image format as a result of either an XEQ 
Monitor control record or a STORE CI DUP control 
record. 

Disk System Format Program. A program that is 
stored in disk system format. It is sometimes called 
a DSF program. 

DSF. (See Disk System Format.) 

DSF Block. A group of not more than nine data words 
of a program in disk system format. In this format, 
the first data word of every DSF block is an indicator 
word. Normally every DSF block in a DSF module 
consists of nine data words, including an indicator word; 
but if the DSF module contains a number of data words 
that is not a multiple of nine, then the next-to-last DSF 
block contains less than nine data words. 

DSF Module. A group of words consisting of a data 
header and DSF blocks for a program in disk system 
format. A new DSF module is created for every data 
break. A data break occurs (1) whenever there is an 
ORG, BSS, BES, or DSA statement, (2) whenever a 
new sector is required to store the words comprising 
a program, and (3) at the end of the program. 

Effective Program Length. The terminal address 
appearing in a relocatable program. For example, in 
Assembler language programs, this address is the last 
value taken on by the Location Assignment Counter and 
appears as the address assigned to the END statement. 

Entry Point. Either (1) the symbolic address (name) of 
a place at which a program is entered, (2) the absolute 
core address at which a program is to be entered, or 
(3) the address, relative to the address of the first word 
of the subprogram, at which it is to be entered. 
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Execution. The execution of the program specified on 
an XEQ Monitor control record and any subsequent links 
executed via CALL LINK statements. The execution is 
complete when a CALL EXIT is executed. 

Fetching. The process of reading something into core 
storage, usually from disk. 

Fixed Area (abbr. FX). The area on disk in which core 
image programs and data files are stored if it is desired 
that they always occupy the same sectors. No programs 
in disk system format may be stored in this area. No 
packing ever occurs in the Fixed Area. 

FLET. (See LET/FLET.) 

FORTRAN Core Load. A core load that was built from 
a mainline written in the FORTRAN language. 

Function. A subprogram that evaluates a mathematical 
relationship between a number of variables. In FOR- 
TRAN, a FUNCTION is a subprogram that is restricted 
to a single value for the result. This type of subprogram 
is called by direct reference. 

FX. (See Fixed Area. ) 

IBM Area. That part of disk storage that is occupied by 
DCOM, the CIB, and the Monitor programs. This area 
is also known as the System Area. 

IBT. (See ILS Branch Table. ) 

ILS. (See Interrupt Level Subroutine. ) 

ILS Branch Table (abbr. IBT.) A table consisting of the 
addresses of the interrupt entry points for each ISS used 
for an interrupt level. An IBT is required by the ILS 
for an interrupt level with which more than one device 
is associated. 

In-core Subprogram. A subprogram that remains in 
core storage during the entire execution of the core 
load, of which it is a part. ILSs are always in-core 
subprograms, whereas LOCALS and SOCALs never are. 

Indicator Word. The first word of a DSF block indicating 
which of the following data words should be incremented 
(relocated) when relocating a program in disk system 
format. This word also indicates which words are 
LIBF, CALL, and DSA names. Programs in disk sys- 
tem format all contain indicator words. Each pair of 
bits in the indicator word is associated with one of the 
following data words — the first pair with the first data 
word following the indicator word, etc. 



Initial Program Load. The action that occurs when the 
PROGRAM LOAD key is pressed. One record is read 
into core, starting at location zero, from the input hard- 
ware device that is physically wired to perform this 
function. The record read, usually a loader, then in- 
structs the system as to the next action to be performed, 
e. g. , load more records. 

Interrupt Level Subroutine (abbr. ILS). A subroutine 
that analyzes all interrupts on a given level; that is, 
it determines which device on a given level caused the 
interrupt and branches to a servicing subroutine (ISS) 
for the processing of that interrupt. 

Interrupt Service Subroutine (abbr. ISS) . A subroutine 
that 1) manipulates a given I/O device and 2) services 
all interrupts for that devicer after they have been 
detected by an ILS. 

Interrupt Transfer Vector (abbr. ITV). The contents of 
words 8-13, which are the second words of the auto- 
matic BSI instructions which occur with each interrupt. 
In other words, if an interrupt occurs on level zero 
and if core location eight contains 500, an automatic 
BSI to core location 500 occurs. Similarly, interrupts 
on levels 1-5 cause BSIs to the contents of core loca- 
tions 9-13, respectively. 

IOAR Header. The word(s) required by an I/O device 
subroutine (ISS). They must be the first or the first 
and second words of the I/O buffer. 

IPL. (See Initial Program Load. ) 

ISS. (See Interrupt Service Subroutine. ) 

ISS Counter. A counter in COMMA (word $IOCT) that is 
incremented by 1 upon the initiation of every I/O opera- 
tion and decremented by 1 upon receipt of an I/O opera- 
tion complete interrupt. 

ITV. (See Interrupt Transfer Vector. ) 

Job. A group of tasks (subjobs) that are to be per- 
formed by the Monitor system and which are inter- 
dependent; that is, the successful execution of any 
given subjob (following the first) depends upon the suc- 
cessful execution of at least one of those that precede it. 

LAC. (See Location Assignment Counter.) 

LET/FLET (the Location Equivalence Table for the 
User Area/ the Location Equivalence Table for the 
Fixed Area). The disk-resident table through which 
the disk addresses of programs and data files stored 



Glossary 155 



in the User/Fixed Area may be found. On a system 
cartridge, LET occupies the cylinder preceding the 
User Area. If a Fixed Area has been defined, FLET 
occupies the cylinder preceding it; otherwise, there 
is no FLET. 

LIBF Subroutine. A subprogram that must be referenced 
with an LIBF statement. The type codes for subroutines 
in this category are 3 and 5. 

LIBF TV. The transfer vector through which LIBF sub- 
programs are entered at execution time. See the section 
on the Core Load Builder for a description of this trans- 
fer vector. 

Link. A link is a core image program that is read into 
core for execution as a result of the execution of a 
CALL LINK statement. 

Loading Address. The address at which a mainline, 
subprogram, core load, or DSF module is to begin. 
For mainlines and DSF modules, the loading address 
is either absolute or relative. For subprograms, it is 
always relative, whereas, for core loads, it is always 
absolute. 

Load-On-Call (abbr. LOCAL) Subroutine. A subprogram 
in a core image program that is not an in-core subpro- 
gram. It is read from the disk into a special overlay 
area in core only when it is called during execution 
time. LOCALS, which are specified for any given 
execution by the user, are a means of gaining core 
storage at the expense of execution time. The Core 
Load Builder constructs the LOCALs and all linkages 
to and from them. 

Load-Although-Not-Called (abbr. NOCAL) Subprogram. 
A subprogram that is to be included in a core image 
program although it is never referenced in that core 
image program by an LIBF or CALL statement. Debug- 
ging aids such as a trace or a dump fall into this cate- 
gory. 

LOCAL. (See Load-On- Call Subroutine.) 



- 1855 is DISKN is in core. This area exists even if 
there is no COMMON. 

Mainline. The program about which a core image pro- 
gram is built. The mainline is normally the program 
in control. It calls subprograms to perform various 
functions. 

Master Cartridge. The cartridge residing on logical 
drive zero. The master cartridge must be a system 
cartridge. 

Modified EBCDIC Code. A six -bit code used internally 
by the Monitor programs. In converting from EBCDIC 
to Modified EBCDIC, the leftmost two-bits are dropped. 
(See Name Code. ) 

Monitor. A synonym for the entire 1130 Disk Monitor 
System, Version 2, which is also known as the Monitor 
system or the Disk Monitor. 

Monitor Control Record. (See Control Record. ) 

Monitor Program. One of the following parts of the 
Monitor system: Supervisor (SUP), Core Image Loader 
(CIL), Core Load Builder (CLB), Disk Utility Program 
(DUP), Assembler (ASM), or FORTRAN Compiler 
(FOR). 

Name Code. The format in which the names of sub- 
programs, entry points, labels, etc. , are stored for 
use in the Monitor programs. The name consists of 
five characters, terminal blanks being added if neces- 
sary to make five characters. Each character is in 
Modified EBCDIC code, and the entire 30-bit repre- 
sentation is right-justified in two 16-bit words. The 
leftmost two bits are used for various purposes by the 
Monitor. 

Naturally Relocatable Program. A program that may 
be executed from any core storage location without 
first being relocated. The only absolute addresses in 
such a program refer to parts of the Resident Monitor, 
which, of course, are fixed. 



Location Assignment Counter. A counter maintained in 
the Assembler for assigning addresses to the instructions 
it assembles. A similar counter is maintained in the 
Core Load Builder for loading purposes. 

Long Instruction. An instruction that occupies two core 
storage locations. 



NOCAL. (See Load-Although-Not-Called Subprogram. ) 

Non-system Cartridge. A cartridge that does not contain 
the Monitor programs, although it does contain DCOM, 
LET, etc. A non-system cartridge may be used only 
as a satellite cartridge. 



Low COMMON. Words 896 - 1215 if DISKZ is in core, 
words 1216 - 1535 if DISK1 is in core, or words 1536 



NOP. An acronym used to denote the instruction, No 
operation. 
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Object Program. The output from either the Assembler, 
or the FORTRAN Compiler. 

Packing. The process of storing programs in the User 
Area to the nearest disk block, thus reducing the aver- 
age wasted disk space from 160 disk words /program to 
10 disk words/program. 

Padding. Areas in the User/Fixed Area required to 
permit core image programs and data files to start 
on a sector boundary. The length of the padding, 
which is reflected in LET/FLET with a dummy entry, 
is from 1 to 15 disk blocks. 

Principal I/O Device. The device used for stacked job 
input to the Monitor system. The 2501/1442, 1442/1442, 
or 1134/1055 may be assigned as the principal I/O de- 
vice. The Keyboard may be assigned temporarily as 
the principal input device (see // TYP under Monitor 
Control Records) . The System Loader considers the 
fastest device defined on the REQ records to be the 
principal I/O device. 

Principal Print Device. The device used by the Monitor 
system for printing system messages. Either the 1403, 
1132, or Console Printer may be assigned as the princi- 
pal print device. The System Loader considers the 
fastest print device defined on the REQ records to be 
the principal print device. 

Program. The highest level in the hierarchy describing 
various types of code. Subprograms and mainlines are 
subsets of this set. 

Program Header Record. The part of a program stored 
in disk system format that precedes the first DSF mod- 
ule. Its contents vary with the type of program with 
which it is associated. It contains the information 
necessary to identify the program, to describe its 
properties , and to convert it from disk system format 
to disk core image format. 

Quintuples. Five-word tables in DCOM that contain 
cartridge-related parameters. There is one table for 
each parameter and an entry in the table for each 
cartridge on the system. These tables are updated by 
SYSUP during JOB processing or by a user callable 
subprogram SYSUP if cartridges are changed during 
a job. 

Relocatable Program. A program that can be executed 
from any core location. Such a program is stored on 
the disk in disk system format. It is relocated by the 
Core Load Builder. 



Relocation. The process of adding a relocation factor 
to address constants and to those long instructions 
whose second words are not (1) invariant quantities, 
(2) absolute core addresses, or (3) symbols defined as 
absolute core addresses. The relocation factor for any 
program is the absolute core address at which the first 
word of that program is found. 

Relocation Indicator. The second bit in a pair of bits 
in an indicator word. If the data word with which this 
bit is associated is not an LIBF, CALL, or DSA name, 
then it indicates whether or not to relocate the data 
word. If the relocation indicator is set to 1, the word 
is to be relocated. Pairs of relocation indicators indi- 
cate LIBF, CALL, or DSA names. The combinations 
are 1000, 1100, and 1101, respectively. 

Remark. An explanation of the use or function of a 
statement or statements. A remark is a part of a 
statement, whereas a comment is a separate statement. 

Resident Image. The mirror-image of the Resident 
Monitor minus the disk I/O subroutine. It resides on 
disk and is read into core by the Cold Start Program. 

Resident Monitor. The area required in core by the 
Monitor system for its operation. This area is gener- 
ally unavailable to the user for his own use. The Resi- 
dent Monitor consists of COMMA, the Skeleton Super- 
visor, and one of the disk I/O subroutines, nominally 
DISKZ. 

Satellite Cartridge. A cartridge residing on a drive 
other than logical drive zero. A satellite cartridge 
can be either a system or a non-system cartridge. 

Short Instruction. An instruction that occupies only 
one core storage location. 

Skeleton Supervisor. The part of the Supervisor that 
is always in core and that is, essentially, the logic 
necessary to process CALL DUMP, CALL EXIT, and 
CALL LINK statements. Certain traps are also con- 
sidered to be part of the Skeleton Supervisor. 

SOCAL. (See System Overlay to be Loaded-On-Call.) 

Subjob. A Monitor operation to be performed during a 
job. Each subjob is initiated by a Monitor control 
record such as ASM or XEQ. It may also be initiated 
by a CALL LINK. 

Subprogram. A synonym used mainly in FORTRAN 
for both FUNCTIONS and SUBROUTINES. This term 
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is equivalent to subroutine when subroutine is used in 
its broadest sense. 

Subroutine. A subset of the set "program". In 
FORTRAN, a SUBROUTINE is a type of subprogram that 
is not restricted to a single value for the result and that 
is called with a CALL statement. 

Supervisor Control Record Area (abbr. SCRA). The 
cylinder in which the Supervisor control records are 
written. The first two sectors are reserved for LOCAL 
control records, the next two for NOCAL control records 
and the next two for FILES control records. See the 
Supervisor section for the formats of these records. 

System Area. (See IBM Area. ) 

System Cartridge. A cartridge that contains the Moni- 
tor programs. A system cartridge may be used as 
either a master or a satellite cartridge. 

System Overlay to be Loaded-On-Call (abbr. SOCAL). 
One of two or three overlays automatically prepared 
by the Core Load Builder under certain conditions when 
a core load is too large to fit into core storage. See the 
section on the Core Load Builder for an explanation. 

System Working Storage. The Working Storage area to 
be used during a job by the Monitor programs. The 



cartridge to be used for System Working Storage is 
defined on the JOB record. System Working Storage 
need not be on the system cartridge. 



A collection of both the 



Transfer Vector (abbr. TV). 
LIBF TV and the CALL TV. 

TV. (See Transfer Vector. ) 

UA. (See User Area. ) 



User Area (abbr. UA). The area on the disk in which 
all programs in disk system format are found. Core 
image programs and data files may also be stored in 
this area. All IBM-supplied programs are found here. 
This area occupies as many sectors as are required 
to store the programs and files residing there. 

User Programs. Mainlines, subprograms, or core 
loads that have been written by the user and stored in 
the User/Fixed Area. 

Working Storage (abbr. WS). The area on disk imme- 
diately following the last sector occupied by the User 
Area. This is the only one of the three major divisions 
of disk storage (IBM Area, User/Fixed Area, Working 
Storage) that does not begin at a cylinder boundary. 

WS. (See Working Storage. ) 
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